delete page setup routine

Currently I have a lisp routine to delete all page setups in a drawing. What I need, is to only delete the page setup that doesn't have "WRNP" in the name.

(defun DeleteOldPageSetup ( 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)))))

)

(princ)

)


(DeleteOldPageSetup "*")



Thanks for any help.

 

how about something like
(defun DeleteAllButPageSetup ( Name / Cfgs)
(setq Cfgs (vla-get-plotconfigurations (vla-get-activedocument
(vlax-get-acad-object))))

(vlax-for x Cfgs
(if
(not (wcmatch (vla-get-name x) Name));if it doesn't match delete it
(vla-delete x)
)
)
(princ)
)

just a quick mod of your code to give the idea - didn't test
hth
Mark

What I need, is to only delete the page setup that doesn't have "WRNP" in
the name.

 

thanks... but that deleted no page setups.

 

The code below will delete all page setups WITH "wrnp" in the name. Now all I need is the reverse to happen, to delete page setups NOT with "wrnp".


(defun DeleteOldPageSetup ( 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)))))

)

(princ)

)


(DeleteOldPageSetup "*WRNP*")


Message was edited by: jclaidler

 

(vlax-for item cfgs
(if (not (wcmatch (vlax-get item 'Name) "*WRNP*"))
(vlax-invoke-method item 'Delete)
)
)

This will delete all page setups except ones that have "WRNP" in it.

Hope this helps
Tim