Mam taki LISP który zmienia kolor tła ekranu z białego na czarny i czarnego na biały. Taki przełącznik. Dodatkowo zmienia kolor wybranych warstw.
LISP działał na wcześniejszych wersjach ZWcada, a na 2017 wskazuje błąd. Może ktoś wie dlaczego??
(defun ZYXAK_MT_BandWBackground (/ PREF COL)
(ZYXAK_Start)
(setq PREF (vla-get-display (vla-get-preferences (vlax-get-acad-Object))))
(setq COL (vlax-variant-value (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor PREF)
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