Community
Is it possible in lisp to get the background colour of the model space.I can't find any variable that hold this value
Thanks
May this (http://www.jtbworld.com/lisp/DisplayColorProperties.htm) will help you.
-G
Attached a routine we use to toggle the background colour between Black and White....if that helps
Cheers Grim
;------------------------------------------------------------------------------- ;TOGGLE DISPLAY COLOUR (TDC) ;------------------------------------------------------------------------------- (defun C:TDC () (cond ((= 1 (getvar "tilemode")) (ax:ToggleMsBackground) (ToggleMsCrosshair) ) ((= 0 (getvar "tilemode")) (ax:TogglePsBackground) (TogglePsCrosshair) ) ) (princ) ) (defun ax:ToggleMSBackground (/ prefDisplay) (vl-load-com) (setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))) color (vlax-variant-value (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor prefDisplay) vlax-vbLong))) (vla-put-GraphicsWinModelBackgrndColor prefDisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vbLong)) (princ) ) (defun ax:TogglePSBackground (/ prefDisplay) (vl-load-com) (setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))) color (vlax-variant-value (vlax-variant-change-type (vla-get-GraphicsWinLayoutBackgrndColor prefDisplay) vlax-vbLong))) (vla-put-GraphicsWinLayoutBackgrndColor prefDisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vbLong)) (princ) ) (defun ToggleMSCrosshair (/ prefDisplay) (vl-load-com) (setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))) color (vlax-variant-value (vlax-variant-change-type (vla-get-ModelCrosshairColor prefDisplay) vlax-vbLong))) (vla-put-ModelCrosshairColor prefDisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vbLong)) (princ) ) (defun TogglePSCrosshair (/ prefDisplay) (vl-load-com) (setq prefDisplay (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))) color (vlax-variant-value (vlax-variant-change-type (vla-get-LayoutCrosshairColor prefDisplay) vlax-vbLong))) (vla-put-LayoutCrosshairColor prefDisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vbLong)) (princ) )