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?

[mhupp]

6 hours ago, 3dwannab said:

Is there something I'm missing?

 

AutoCAD doesn't like multiple drawings.  you will either have to do scripts or maybe vl-propagate ?

[3dwannab]

3 hours ago, mhupp said:

 

AutoCAD doesn't like multiple drawings.  you will either have to do scripts or maybe vl-propagate ?

Thanks @mhupp, I'll try that once I finish work tomorrow. 

 

@Steven P, when I replaced the vla-put-ShowPlotStyles with just a (princ "test') I think it only done the current doc. Will test tomorrow.