Jeszcze nieco zmodyfikowaliśmy program w taki sposób, aby nie trzeba było przeliczać. Teraz powinno być wszystko jasne. (defun C:Szare ( / ) (BGColor 30 40 48 ) (CursorColor 255 255 255) ) (defun C:białe ( / ) (BGColor 255 255 255 ) (CursorColor 0 0 0 ) ) (defun c:czarne ( / ) (BGColor 0 0 0 ) (CursorColor 255 255 255) ) (defun BGColor ( R G B / PREF ) (setq PREF ( vla-get-display ( vla-get-preferences (vlax-get-acad-object ) ) ) ) (vlax-put-property PREF 'GraphicsWinM