Change / Switch Background colour?

[Joe Seppy]

I want to make a macro or a custom button to change the background from black to white and white to black. I work in black but need to go to white for screen captures and then back to black to work. A button/macro would save considerable time. Any help woul be appreciated.

Seppy

[fixo]

I want to make a macro or a custom button to change the background from black to white and white to black. I work in black but need to go to white for screen captures and then back to black to work. A button/macro would save considerable time. Any help woul be appreciated.

Seppy

Hi Seppy
Here is an example from ActiveX and VBA Reference Help file

Sub Example_GraphicsWinModelBackgrndColor()
    ' This example returns the current setting of
    ' GraphicsWinModelBackgrndColor. It then changes the value, and finally
    ' it resets the value back to the original setting.
    
    Dim preferences As AcadPreferences
    Dim currGraphicsWinModelBackgrndColor As OLE_COLOR
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Retrieve the current GraphicsWinModelBackgrndColor value
    currGraphicsWinModelBackgrndColor = preferences.Display.GraphicsWinModelBackgrndColor
    MsgBox "The current value for GraphicsWinModelBackgrndColor is " _
            & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Example"
    
    ' Change the value for GraphicsWinModelBackgrndColor
    preferences.Display.GraphicsWinModelBackgrndColor = 16
    MsgBox "The new value for GraphicsWinModelBackgrndColor is " _
            & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Example"
    
    ' Reset GraphicsWinModelBackgrndColor to its original value
    preferences.Display.GraphicsWinModelBackgrndColor = currGraphicsWinModelBackgrndColor
    MsgBox "The GraphicsWinModelBackgrndColor value is reset to " _
            & preferences.Display.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Example"
End Sub

You need take a look at GraphicsWinLayoutBackgrndColor property
in this Help file also

Hth

~'J'~

[Joe Seppy]

Thanks Fixo,

How do I find the help file that you reference? I pasted this example into the VBA editor and nothing happened when I ran it (the message boxes came up but that was about it). I played with different colours and numbers but nothing happened. If I can find the help file where you got this example from I believe I could work my way through it.

Seppy

[fixo]

Thanks Fixo,

How do I find the help file that you reference? I pasted this example into the VBA editor and nothing happened when I ran it (the message boxes came up but that was about it). I played with different colours and numbers but nothing happened. If I can find the help file where you got this example from I believe I could work my way through it.

Seppy

Open module with this code,
say select GraphicsWinModelBackgrndColor word
then press F1 and you will be on this Help file page
I've tested this example in A2005 only, works fine for me
This one changed screen color from white to black
and otherwise

~'J'~

[Joe Seppy]

That's all that I needed! Thanks for the quick answers! People like you make this forum awsome!

Seppy

[Opie]

The following AutoLISP code snippets will do this. You could put them on two separate buttons on a toolbar.

;White Background
(COMMAND "VBASTMT" "ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = 16777215")

;Black Background
(COMMAND "VBASTMT" "ThisDrawing.Application.Preferences.Display.GraphicsWinModelBackgrndColor = 0")

[fixo]

That's all that I needed! Thanks for the quick answers! People like you make this forum awsome!

Seppy

C'mon
No flowers please
I am no so smart as you means
Happy computing
Cheers


~'J'~

[abdulhuck]

I work in black but need to go to white for screen captures and then back to black to work. A button/macro would save considerable time. Any help woul be appreciated.

Seppy

Hi Seppy,

If you capture in WMF format, you can have a look at these two system variables also.

WMFBKGND
WMFFOREGND

Regards,
Abdul Huck