deleting page setups

[John Crocco]

I need to delete pagesetup via lisp. I automatically load them via acad2002.lsp routine, and have changed the names due to a new plotter and new routines. The old ones still remain in existing drawings. I want to to delete the current ones, or I can actually specify which ones to delete, then i can do psetupin to add new ones.

Any easy way to do this?

BTW, Heres the original code to see what has been done:

;Custom commands by John Crocco 10-17-01
;revised to use new config for hp750c 12-23-03
;inserts plot styles into current drawing
(DEFUN PSETUPS (/ exprt)
(setq exprt (getvar "expert"))
(setvar "expert" 5);WAS 2
;FOR HP200 (if (wcmatch (getvar "platform") "*4.0*") (command "._-PSETUPIN" "j:/cc/template/plotconfig.dwt" "*"));FOR WINNT hp200 ;FOR HP200 (if (wcmatch (getvar "platform") "*Version 5.1*") (command "._-PSETUPIN" "j:/cc/template/plotconfigxp.dwt" "*"));FOR WIN XP hp200 ; (if (wcmatch (getvar "platform") "*4.0*") (command "._-PSETUPIN" "j:/cc/template/plotconfig750nt-test.dwt" "*"));FOR WINNT hp750c test mode ; (if (wcmatch (getvar "platform") "*Version 5.1*") (command "._-PSETUPIN" "j:/cc/template/plotconfig750xp-test.dwt" "*"));FOR WIN XP hp750c test mode (if (wcmatch (getvar "platform") "*4.0*") (command "._-PSETUPIN" "j:/cc/template/plotconfig750nt.dwt" "*"));FOR WINNT hp750c (if (wcmatch (getvar "platform") "*Version 5.1*") (command "._-PSETUPIN" "j:/cc/template/plotconfig750xp.dwt" "*"));FOR WIN XP hp750c (setvar "expert" exprt) );end psetups (if (/= (getvar "dwgprefix") "J:\\cc\\template\\")(PSETUPS));prevent psetups to load into the default psetups drawing and overwriting it

 

[Jeff Mishler]

John,
Not to sound like a broken record, but did you try searching this group for this answer? In Outlook Express I get 333 messages when searching for "page setup", and at least half of those discuss this issue........specifically , the thread started by "Mike" on Sept. 3, 2003 entitled "deleting page setups per script?" has a good method as well as a few comments on that method.

HTH,
Jeff

 

[jclaidler]

(defun DelPageSetup ( Name / Cfgs)
(setq
Cfgs
(vla-get-plotconfigurations
(vla-get-activedocument
(vlax-get-acad-object))))

(cond
((vl-string-search "*" Name)
(vlax-for x Cfgs
(if (wcmatch (vla-get-name x) Name)
(vla-delete x))))

(T
(vl-catch-all-apply
'(lambda (vla-delete (vla-item Cfgs Name)))))
)

(setq currentpsetup nil)

(princ)

)

(delpagesetup)