lisp to erase all viewports in a drawing

[Anonymous]

hello,

i am looking for a script that erases all viewports in a drawing....who can helpe-me?

thanks,

Nelson

[regisrohde]

(defun c:erasevp(/ vlist)


(progn
 (setq listalayout (layoutlist))
 
 (SETQ CONT 0)
(SETQ ELEMENTS (LENGTH listalayout))
(WHILE (/= ELEMENTS CONT)
(SETQ E1 (NTH CONT listalayout))
(command "-layout" "s" e1)

(setq vlist(ssget "_A" '((0 . "VIEWPORT"))))
(command "erase" vlist "")


(SETQ cont (+ CONT 1))
)
))

 Erese all viewports

[regisrohde]

(defun c:eraselt(/ vlist)

(progn
(setq listalayout (layoutlist))

(SETQ CONT 0)
(SETQ ELEMENTS (LENGTH listalayout))
(WHILE (/= ELEMENTS CONT)
(SETQ E1 (NTH CONT listalayout))
(command "-layout" "d" e1)

(SETQ cont (+ CONT 1))
)
))