Toggle "Display plot styles"

Several months ago I requested of this group a routine to automate turning
on and off the diplay of plot styles in a layout.

The following code is what resulted. Can anyone suggest how to combine the
two functions so that a single function would "toggle" the display? I know
to write a "toggle" in straight AutoLISP but don't know to do it in this
code.


;;; Turns on "Display plot styles" for the current layout
(defun CPS ()
(vla-put-showplotstyles
(vla-get-activelayout
(vla-get-activedocument
(vlax-get-acad-object)
)
)
:vlax-true
)
(command "regenall")
)
;;; Turns off "Display plot styles" for the current layout
(defun CDPS ()
(vla-put-showplotstyles
(vla-get-activelayout
(vla-get-activedocument
(vlax-get-acad-object)
)
)
:vlax-false
)
(command "regenall")

 

Maybe like this? Though I must admit, I'm not familiar with what's going on here.

(defun c:ToggleDPS ( / layout)
(setq layout (vla-get-activelayout
(vla-get-activedocument (vlax-get-acad-object))))
(if (eq :vlax-true (vla-get-showplotstyles layout))
(vla-put-showplotstyles layout :vlax-false)
(vla-put-showplotstyles layout :vlax-true)
)
;(vla-get-showplotstyles layout) ;test status
)

Joe Burke

 

Works like a charm. Thanks.

 

You're welcome.

Joe

 

This is great code does anyone have any idea how you might attach it to a new toggle button to place in the tray right next to the lineweight toggle. I am surprised this isn't a built in feature.

Tim