Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

background colour

3 REPLIES 3
Reply
Message 1 of 4
donied
514 Views, 3 Replies

background colour

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

3 REPLIES 3
Message 2 of 4
ProfWolfMan
in reply to: donied

May this  (http://www.jtbworld.com/lisp/DisplayColorProperties.htm) will help you.

 

-G

 

Thanks & Regards,
G
Message 3 of 4
Grim-NZ
in reply to: donied

 

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)
)

 

 

Message 4 of 4
donied
in reply to: donied

Thank you very much for the routine.

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost