Does anyone know how to control the background color through autolisp?

[hypersonic]

I know you can change it through config, display, colors settings, but I can not seem to find the variable that it changes....

thanks!

[hypersonic · Accepted solution]

This works!  found in another post something similar and was able to modify....

(defun c:cb_white ()

; model - background white, crosshair black ;
 (vla-put-GraphicsWinModelBackgrndColor
 (vla-get-display
 (vla-get-preferences
 (vlax-get-acad-object)
 )
 )
 16777215
 )
 (vla-put-ModelCrosshairColor
 (vla-get-display
 (vla-get-preferences
 (vlax-get-acad-object)
 )
 )
 0
 )

);end defun

;(vla-put-ModelCrosshairColor)
;(vla-get-ModelCrosshairColor (vla-get-display (vla-get-preferences (vlax-get-acad-object) )
; )
; 2
😉

(defun c:cb_black ()

; model - background white, crosshair black ;
 (vla-put-GraphicsWinModelBackgrndColor
 (vla-get-display
 (vla-get-preferences
 (vlax-get-acad-object)
 )
 )
 0
 )
 (vla-put-ModelCrosshairColor
 (vla-get-display
 (vla-get-preferences
 (vlax-get-acad-object)
 )
 )
 200
 )

);end defun