Change background color

[wayne.murphy704398]

Hi
I am attempting to write a lisp to change the color of the model space background on Start up.
I need a lisp to place in the acaddoc.lsp that on boot up will change the background to a true black rather than the default color (an off black).
This is what I have, but it does not work.

(if (= (getvar "Background") "3156001") (SETENV "Background" "0"))

[Tom Beauford]

Number of lisps out there for doing this already you would only have to set your colors in one of them.
http://jtbworld.com/autocad-backgroundchanger-lsp

[wayne.murphy704398]

Thanks for the reply.
The site has scripts to change color, but I don't see a if then statements.
I only want the color to change automatically on start up if its the default color set for the background for model space..

[Tom Beauford]

Change your getvar to getenv and your code should work.

[rkmcswain]

Here is something that might help:

http://cadpanacea.com/wp/?p=242

[wayne.murphy704398]

thank you very much. This now works great.
Much appreciated.

[Tom Beauford]

That said the "3156001" seems easier on my eyes. I have a toggle to display same as plotted, but a separate toggle to display plot styles is all I usually use.
Whatever works best for you is the way to go.