Achtergrondkleur AutoCAD wisselen met Lisp

Als je een beetje handig bent met Lisp, dan kun je snel eenvoudige tooltjes maken die het leven een stuk eenvoudiger maken. Nou ja, het leven, in ieder geval het werken met AutoCAD. Wat te denken van een handige Lisp routine om snel te switchen tussen een zwarte en witte achtergrond? Bijvoorbeeld om zo in ModelSpace te kunnen zien hoe het op papier eruit ziet, of omdat je graag schermafdrukken maakt voor een handleiding.

AutoLisp

In een vorige blog is uitgebreid geschreven hoe je AutoCAD helemaal naar je eigen hand zet. Hier is ook de acaddoc.lsp genoemd, het script dat AutoCAD altijd laadt als het dit bestand tegenkomt. Hierin kun je eenvoudig handige tooltjes opnemen. Bijvoorbeeld een functie om snel een voorgaande selectie opnieuw te selecteren:

; Selecteer voorgaande selectie
(defun c:PP () 
 (command "pselect" "p" "")
 (princ)
)

Of slimme zoom-functies met een snel commando:

; Zoom Dynamic
(defun C:ZD () 
 (command "_.ZOOM" "_D") 
 (princ)
)

; Zoom Previous
(defun C:ZP () 
 (command "_.ZOOM" "_P") 
 (princ)
)

; Zoom Extents
(defun C:ZE () 
 (command "_.ZOOM" "_E") 
 (command "_.ZOOM" ".9x") 
 (princ)
)

De code om te switchen naar een witte achtergrond is dit:

; Set the background to white
(defun c:BGW ()
 (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
 (vla-put-GraphicsWinModelBackgrndColor disp 16777215)
 (vla-put-ModelCrosshairColor disp 0)
 (vla-put-AutoTrackingVecColor disp 0)
 (princ)
)

En naar een zwarte achtergrond:

; Set the background to black
(defun c:BGB ()
 (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
 (vla-put-GraphicsWinModelBackgrndColor disp 0)
 (vla-put-ModelCrosshairColor disp 16777215)
 (vla-put-AutoTrackingVecColor disp 16777215)
 (princ)
)

Ik heb het ooit ergens gevonden op het internet maar ik kan me echt niet herinneren waar ik dit vandaan heb, ik kan dus helaas geen bronvermelding doen.

Handig is het wel:

De Viewport Controls vallen een beetje weg. Je zou die eventueel via Options, tabblad Display aan kunnen passen naar RGB kleur 128,128,128. Dan zijn ze precies grijs in zowel de witte, als de zwarte achtergrond.