[求助]：谁能编个暴力删除整个图层的LISP(不用ET的)

xxming

谁能编个暴力删除整个图层的LISP(不用ET的)

lsjjm

my code:
REFERENCE TO
http://www.xdcad.net/forum/showthread.php?s=&threadid=179250

aeo

最初由 lsjjm 发布
[B]my code:
REFERENCE TO
http://www.xdcad.net/forum/showthread.php?s=&threadid=179250 [/B]

成功率不会太高

2. 
   
3. (defun c:test( / lay e)
   
4. (if(and(setq e(car(entsel)))
   
5.            (setq lay (cdr(assoc 8(entget e))))
   
6.           (/= lay "0")
   
7.    )
   
8. (progn(command"erase"(ssget "x" (list(cons 8 lay)))"")
   
9.           (command"purge""la" lay "n")
   
10. ))(princ))

<br /> (defun c:test( / lay e)<br /> (if(and(setq e(car(entsel)))<br />            (setq lay (cdr(assoc 8(entget e))))<br />           (/= lay "0")<br />    )<br /> (progn(command"erase"(ssget "x" (list(cons 8 lay)))"")<br />           (command"purge""la" lay "n")<br /> ))(princ))

其实是个很复杂的事情.有了et,研究就很没意思.
不过et也暴力的有点过头.