Changing background color via Lisp

[cadconcepts]

Hi All

I am working on a routine to restore our office's standard setting and I am having trouble with restoring the drawing background color. I have tried the following piece of code with no luck at all. Any help is greatly appreciated. Thanks.

Manuel

(vl-load-com)
((vl-registry-write (strcat "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R18.1\\ACAD-9001:409\\Profiles\\"  (getvar "cprofile") "\\Drawing Window") "Background" "0"))

[BlackBox]

Look into the GraphicsWinModelBackgrndColor and the GraphicsWinLayoutBackgrndColor properties, of the PreferencesDisplay object.

[hofcad]

See: http://forums.autodesk.com/t5/Visual...or/m-p/1605657

(defun c:wb () ;;white background
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject 'preferences))
(setq acaddisp (vlax-get-property acadpref 'display))
(vlax-put-property acaddisp 'GraphicsWinmodelBackgrndColor 16777215)
(vlax-put-property acaddisp 'ModelCrosshairColor 0)
)
 
(defun c:bb () ;; black background
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject 'preferences))
(setq acaddisp (vlax-get-property acadpref 'display))
(vlax-put-property acaddisp 'GraphicsWinmodelBackgrndColor 0)
(vlax-put-property acaddisp 'ModelCrosshairColor 16777215)
)

Regards HofCAD CSI.

[cadconcepts]

Hofcad

Can you tell me the names of the variables for paperspace background and crosshair color? Thanks.

Manuel

[rkmcswain]

Here is a method to toggle the color between black and white: http://cadpanacea.com/node/50

[rkmcswain]

Hofcad

Can you tell me the names of the variables for paperspace background and crosshair color? Thanks.

Manuel

That should be answered in this post.

[cadconcepts]

That worked. Thank you all for your help.

Manuel