Originally Posted by
Gigliano70
Does anyone know of a lisp routine or macro or sysvar that can change the paper space background color on the fly from white to black and back again? or change "display plot styles" on the fly? either would be great. both would be perfect. i am using the black and white paper space and would like to see color when i need to quickly. then revert back to black and white plot styles. thanks in advance for your help.
~Frank
Hi Frank,
This might get you started on the display plot styles portion. I've been playing with the background color stuff, but I haven't produced satisfactory results yet (a lot of other stuff changes too).
Code:
(defun c:togbg (/ lout)
(vl-load-com)
(setq lout (vla-Item
(vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(getvar "ctab")
)
)
(if (= (vla-get-ShowPlotStyles lout) :vlax-true)
(progn
(vla-put-ShowPlotStyles lout :vlax-false)
(setvar "lwdisplay" 0)
)
(progn
(vla-put-ShowPlotStyles lout :vlax-true)
(setvar "lwdisplay" 1)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acAllViewports)
(princ)
)
Hope this helps some...