Topic: Apply Plot style table to all layout

[miquan]

Dear all,

I use this lisp for set plot style table of layout to specific one.

Code - Auto/Visual Lisp: [Select]

1. ; (defun c:PLOTHORY ()
2.  (vla-put-StyleSheet
3.     (vla-get-ActiveLayout
4.         (vla-get-ActiveDocument (vlax-get-acad-object))
5.     )
6.     "monochrome.ctb"
7.   )
8. )

But it still works only in current layout.
Could you possily help me to modify for all layout setting?

Thanks in advanced,
Miquan

[Ketxu]

You could try :

Code - Auto/Visual Lisp: [Select]

1. (vlax-map-collection
2.         (vla-get-Layouts
3.                 (vla-get-ActiveDocument (vlax-get-acad-object))
4.     )
5.         '(lambda(x)(vla-put-StyleSheet x "monochrome.ctb"))
6. )

[Krushert]

 
Funny I was just trying to do the same thing.   
I love this place!
Thanks!.

[miquan]

Dear ketxu,

Thanks for your support.
I works fine.

PS: you're from vietnam?

Miquan

[Ketxu]

Yeah. Im living in Ha Noi

[BlackBox]

FWIW -

It's actually faster to iterate the Layouts Collection, and manipulate each Layout Object directly, than it is to Map an anonymous function to same... To demonstrate, here's a quick speed test:

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun _foo1 (ctb)
4.   (vlax-map-collection
5.     (vla-get-Layouts
6.       (vla-get-ActiveDocument (vlax-get-acad-object))
7.     )
8.     '(lambda (x) (vla-put-StyleSheet x ctb))
9.   )
10. )
11.  
12. (defun _foo2 (ctb)
13.   (vlax-for x (vla-get-layouts
14.                 (vla-get-activedocument (vlax-get-acad-object))
15.               )
16.     (vla-put-stylesheet x ctb)
17.   )
18. )
19.  

... And the results from console:

Code - Auto/Visual Lisp: [Select]

1. _$ (bench '(_foo1 _foo2) '("FOO.ctb") 10000)
2.  
3. _FOO1
4. Elapsed: 4774
5. Average: 0.4774
6.  
7. _FOO2
8. Elapsed: 3791
9. Average: 0.3791
10.  

[BlackBox]

Also, as it is loosely related, for those who might be interested: vla-SetActivePageSetup