topic Re: Current Layout to specified page setup current in AutoCAD Forum

Current Layout to specified page setup current

Philj215 — Thu, 22 Dec 2022 16:04:01 GMT

We setup multiple page setups on all of our drawings that are the same. One of them is called PDF. I want to set the current layout to "PDF" page setup. Is there a lisp routine that will achieve this to save me some time?

I normally do this process:

type: pagesetup

click PDF from the page setups

click the set current button

Re: Current Layout to specified page setup current

paullimapa — Thu, 22 Dec 2022 16:07:55 GMT

Explore Ctab variable

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2019/ENU/AutoCAD-Core/files/GUID-20529853-0C88-4417-8D8C-9783E9789BBC-htm.html

Re: Current Layout to specified page setup current

cadffm — Thu, 22 Dec 2022 16:56:39 GMT

@paullimapa wrote:

Explore Ctab variable

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2019/ENU/AutoCAD-Core/files/GUID-20529853-0C88-4417-8D8C-9783E9789BBC-htm.html

I would say: Command -PLOT no

and stop the plot at the end of this command.

CTab is good for a layout jump, not to set a pagesetup.

@Philj215

Sure you will find a short tool to set your named pagesetup,

but -PLOT is the way to go if you like to create your own solution.

Re: Current Layout to specified page setup current

paullimapa — Thu, 22 Dec 2022 23:11:36 GMT

try using this lisp function to do this but Note: Does not check if given pagesetup name exists or applies to given layout space

; putPagesetup function places an existing pagesetup onto layout ; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-for-page-setup/td-p/9386936 ; arguments: ; document - (vla-get-activedocument(vlax-get-acad-object)) ; layout - (getvar"ctab") ; setup - existing pagesetup name ; Usage: ; (putPagesetup (vla-get-activedocument(vlax-get-acad-object)) (getvar"ctab") "PageSetup Paper") ; given existing pagesetup name: "PageSetup Paper" ; Note: Does not check if given pagesetup name exists or applies to given layout space ; Returns T if successfull or Nil if fails (defun putPagesetup (document layout setup) ;Jason Piercey (vl-load-com) (if (vl-catch-all-error-p (vl-catch-all-apply (function (lambda () (vla-copyfrom (vla-item (vla-get-layouts document) layout) (vla-item (vla-get-plotconfigurations document) setup)) ) ) ) ) nil t ) ) ; defun

Re: Current Layout to specified page setup current

maratovich — Fri, 23 Dec 2022 16:44:49 GMT

Maybe this will help you - Revers

Re: Current Layout to specified page setup current

paullimapa — Fri, 23 Dec 2022 16:49:21 GMT

I don’t see any feature in your app that addresses the OP

Re: Current Layout to specified page setup current

maratovich — Fri, 23 Dec 2022 19:49:43 GMT

@paullimapa написал (-а):
I don’t see any feature in your app that addresses the OP

You will see when you run the program. If you don't run you won't see anything.
Watch at least the video tutorial.
It automatically assigns all required print options to all layouts.

Re: Current Layout to specified page setup current

paullimapa — Fri, 23 Dec 2022 20:22:33 GMT

I watched the video. Like I said, your app has nothing to do with OP. Go back and read it carefully.