User Defined Page Setups

Hi All of you,

I'd like to make a lisp that removes all User Defined Page Setups from the
dwg and imports new ones from an other dwg. Wich sysvars and what methods
would you advise?

Thanks,

Hans

 

Save this to a LISP file named Del_Pagesetups.lsp

Code:

;;;====================================================================;
;;;                     Del_Pagesetups.lsp                             ;
;;;    Received from:    Charles Alan Butler                           ;
;;;                                            ;
;;;====================================================================;

;;  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

Use the following for a button to do this all...make sure you make a drawing with all your page setups, and if you use a different dwg name, edit the following code...

Code:

(if (not c:Del_Pagesetups)(load "Del_Pagesetups"));Del_Pagesetups;.-PSETUPIN "PageSetups.dwg" "*";

 

Hi Dommy2Hotty,

That's not inconvenient at all.
My tinkering is practicly unnecessary.
Thanks,

Hans

 

So it's what you were looking for, correct?

 

Yeah, really nice, thank you very much.

Hans

 

Glad I could help...that is courtesy of CAB at TheSwamp

 

I'l check it out