Multiple erase

hellow there,

i need command like erase single or window or crossing
any type of selections but if once selected,
objects shud erased
and command need to be restarted. but if i enter nil
command shud exit not canceled by escape,
does it possible, i tried to much,
even i used * in menu, but it needs esc for termination.
repeating 1000 times also needs esc for termination
pls help me in this func
thanks
amit

 

(defun c:merase ( / ss)
(princ "\nMultiple Erase: ")
(if (setq ss (ssget))
(progn
(command ".erase" ss "")
(c:merase)
)
)
(princ)
)

 

This will work better

(defun c:merase ( / ss)
(princ "\nMultiple Erase: ")
(while (setq ss (ssget))
(command ".erase" ss "")
(princ "\nMultiple Erase: ")
)
(princ)
)

 

Try this macro:
*^C^C_erase;SINGLE;

 

hi,
thanks for the micro, this one is very old from acad12
but it needs esc for exit, i m looking something which runs same as this menu macro and ends adter enter
no need to cancel.

pls tell me if u aware
amit

 

I posted a solution for you on 12/23 just 2 1/2 hours after you asked.

 

thanx jim,
but cmd doesent erases single object immidiately

amit

 

amit do tell me

if u recd. proper solution on thic cmd

shailendra vidya
Devyani cad sodtware developments
http://devcs.com