Change plotstyles display on all currently open docs?

[3dwannab]

Hi all,

 

Here's a function that doesn't work to set the plot styles for all open drawings.

 

Is there something I'm missing?

 

(defun set-pstyles (showBool / app docs orgDoc) 
  (setq showBool (if showBool :vlax-true :vlax-false))
  (setq app (vlax-get-acad-object))
  (setq docs (vla-get-Documents app))
  (setq orgDoc (vla-get-ActiveDocument app)) ; store the original
  (vlax-for d docs 
    (vla-Activate d)
    (vla-put-ShowPlotStyles (vla-get-ActiveLayout d) showBool)
    (vla-Regen d acActiveViewport)
  )
  (vla-Activate orgDoc)
)

(set-pstyles T)
; (set-pstyles nil)

 

[Steven P]

So where is it going wrong? Is it switching between drawings or just switching to one drawing and then stopping?