15 lines
381 B
Common Lisp
15 lines
381 B
Common Lisp
(defun C:deleteLayouts ()
|
|
(vl-load-com)
|
|
(graphscr)
|
|
|
|
(initget 1 "Yes No")
|
|
(setq really (getkword "Delete all layouts? [Yes/No]"))
|
|
(if
|
|
(= really "Yes")
|
|
(vlax-for l (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
|
|
(if (/= (vla-get-name l) "Model")
|
|
(vla-delete l)
|
|
)
|
|
)
|
|
)
|
|
) |