(defun C:eal ()
(vl-load-com)
(vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
(vl-catch-all-apply 'vla-delete (list LAYOUT))
)
(princ "\nAll layouts have been deleted.")
)
(c:eal)

Advertisements