Topic: Adding a psetup from a script or through a lisp in a script

[Andrew H]

Is there a way to add a pagesetup through a script? Or even through a lisp in a script?

[hudster]

psetupin

create a drawing with the required page setup, save it and use this command to load it's page setups into the current drawing.

[M-dub]

This is in a cutom button of mine...I'm sure you could do it in a script though...
^C^CDel_Pagesetups;^C^C.-PSETUPIN "O:/Drawings/SupportforCAD/AutoCAD-2004-Support/PageSetups.dwg" "*" PLOT;

Here's the Del_Pagesetups routine...

Code: [Select]

;;  Function to delete all user plot set ups
(defun c:Del_Pagesetups (/ curdwg pslayout x)
  (vl-load-com)
  (setq
    curdwg   (vla-get-ActiveDocument (vlax-get-Acad-Object))
    pslayout (vla-get-Layout (vla-get-PaperSpace curdwg))
  ) ;_ end of setq
  ;; Call RefreshPlotDeviceInfo before GetPlotDeviceNames
  (vla-RefreshPlotDeviceInfo pslayout)
  (vlax-for x (vla-get-Plotconfigurations curdwg)
    (vla-delete x)
  ) ;_ end of vlax-for
)               ; End Plot_config_list
(c:Del_Pagesetups)

[Andrew H]

Thanks guys, I'll let you know how it goes.

[Andrew H]

Ok, here's the script file...

Code: [Select]

-cdgpurge
p
-psetupin
;enter your default drawing location including drawing name here
;enter your page setup name here (one word pagesetup names work best)



This one is using the CDG Purge for deleting all previous pagesetups, but you can use an existing lisp you have or not include that protion of the script by deleting the first 2 lines of text from the script file.

[Andrew H]

One thing I forgot to say...

when entering your default drawing location and name be sure to add " at the beginning and the end of the file location.

Example: "C:/Current Project/Current Drawing.dwg"