multi erase?

[alanjt]

account for missed picks...

 

(defun c:Test (/ entity)
 (setvar 'ERRNO 0)
 (while (progn (setq entity (car (entsel "\nSelect object to erase: ")))
               (cond ((eq (getvar 'ERRNO) 7) (princ "\nMissed, try again."))
                     ((eq (type entity) 'ENAME) (entdel entity))
               )
        )
 )
 (princ)
)

[CADNICK]

(defun c:Test (/ entity)
(while (setq entity (car (entsel "\nSelect object to erase: ")))
(entdel entity)
)
(princ)
)

 

This works great. Except if I try to select by either crossing or window it ends the command. alanjt thanks for the help.

[Tharwat]

(while
 (if (setq ss (ssget "_:L"))
   (entdel (ssname ss 0))
 )
)

[BlackBox]

LoL - What a day... I cannot wait for CoB today.

[alanjt]

LoL - What a day... I cannot wait for CoB today.

I can't wait to go home.

[Tharwat]

I feel the whisper of the air .

[BlackBox]

LoL - What a day... I cannot wait for CoB today.

 

I can't wait to go home.

 

[alanjt]

uhhhh, what?

[CADNICK]

see last post page 2

[BlackBox]

uhhhh, what?

 

"You say tomato, I say tomato"... pronounciation / phonietics obviously do not ressonate well in a post, LoL