Topic: Page set up

[Nardino]

Hello to all
I have a few hundred drawings that have 3 named page set ups. Does anybody know how create a lisp or script so that I can make current a certain page set up?
thanks

[ChrisCarlson]

Code - Auto/Visual Lisp: [Select]

1. ;;; Set a named page setup as current on current layout by avoiding command usage http://jtbworld.com/autocad-pagesetup-lsp
2. ;;; (SetCurrentPageSetup <AcadDocument> <PageSetupName>)
3. ;;; (SetCurrentPageSetup (vla-get-activedocument (vlax-get-acad-object)) "Setup2")
4. (defun SetCurrentPageSetup (doc pcname / layout PlotConfig)
5.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
6.   (setq layout (vla-get-activelayout doc))
7.   (setq PlotConfig (vl-catch-all-apply
8.                      'vla-item
9.                      (list
10.                        (vla-get-PlotConfigurations
11.                          doc
12.                        )
13.                        pcname
14.                      )
15.                    )
16.   )
17.   (if (not (vl-catch-all-error-p PlotConfig))
18.     (vla-copyfrom layout PlotConfig)
19.   )
20. )

JTB wrote a pretty nifty page setup function, will be pretty straight forward in combining this with a script for batch processing.

[Rob...]

If that doesn't work out for you, I might be able to dig one up from my archives for you.

[Nardino]

Thanks for the code. It saved a lot of time