[求助]模型空间背景颜色？

紫云飞

请问如何在lisp程序中设置模型空间背景的颜色，例如原来是黑色，现在更改为白色？

龙龙仔

(setq ACADOBJECT (vlax-get-acad-object))
(setq PREF (vla-get-preferences ACADOBJECT))
(setq PREF_DISPLAY (vla-get-display PREF))
(vla-put-graphicswinmodelbackgrndcolor PREF_DISPLAY 16777215) ;白色
;;(vla-put-graphicswinmodelbackgrndcolor PREF_DISPLAY 0) ;黑色