;-------------------------------------------------------
; DPS - DisplayPlotStyles
; 04/03/10 ruul at ctr.co.at
; nomen est omen - toggles display of plotstyles...
;-------------------------------------------------------
(defun c:DPSON ()
(rm:displayplotstyles t nil)
)
;-------------------------------------------------------
(defun c:DPSONALL ()
(rm:displayplotstyles t t)
)
;-------------------------------------------------------
(defun c:DPSOFF ()
(rm:displayplotstyles nil nil)
)
;-------------------------------------------------------
(defun c:DPSOFFALL ()
(rm:displayplotstyles nil T)
)
;-------------------------------------------------------
(defun rm:displayplotstyles (bshow ball / acapp acdoc layouts layout bvshow)
(princ " Display plotstyles ")
(vl-load-com)
(setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))

(setq layouts (vla-get-layouts acdoc))
(setq bvshow (if bshow :vlax-true :vlax-false))
(princ (if bshow "ON " "OFF "))
(cond
(ball
(vlax-for layout layouts
(vla-put-ShowPlotStyles layout bvshow)
)
(princ "in all Layouts. ")

)
(T (setq layout (vla-get-ActiveLayout acdoc))
(vla-put-ShowPlotStyles layout bvshow)
(princ "in current Layout. ")
)
)
(prin1)
)
;-------------------------------------------------------
(princ (strcat "\nDisplayPlotStyles - ruul/04 loaded. \n"
"Commands: DPSON, DPSONALL, DPSOFF, DPSOFFALL\n"
))
(prin1)
;-------------------------------------------------------