LISP ROUTINE TO ERASE ALL PAPERSPACE LAYOUTS

[stephen.coff]

Guys,
Does anyone have a LISP Routine to erase all the paperspace tabs and layouts on a drawing ? If so could i get a copy, please ?

Stephen

[CADmium]

(vl-load-com)
(vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
(vl-catch-all-apply 'vla-delete (list LAYOUT))
)

,but one Paperspacelayout (the last active) cannot deleted

[stephen.coff]

Thanks Thomas.

[stephen.coff]

Thomas,
Do you know if or how to rename the last active paperspace tab left ?
I can have it erase everything on that tab though would like to be able to rename it back to paperspace.

Stephen

[CADmium]

Try this


(vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
(cond
((>(vla-get-taborder LAYOUT)1)
(vl-catch-all-apply 'vla-delete (list LAYOUT))
)
((=(vla-get-taborder LAYOUT)1)
(not(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name(list LAYOUT "PAPER"))))
)
)
)

[stephen.coff]

Thanks alot Thomas, that has made the task of preparing drawings a little easier.

Stephen