指定图层删除

maiko

2. (defun c:della ( / blk obj cnt dm doc )
   
3.   (setq cnt 0)(princ"\n-->按图层删除对象")
   
4.   (while (setq dm (car (entsel "要删除的图层")))
   
5.     (setq dm (Cdr(Assoc 8 (Entget dm))))
   
6.     (vlax-for blk (vla-get-Blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
   
7.       (vlax-for obj blk
   
8.         (if (= (Vlax-Get obj 'Layer) dm)
   
9.           (progn (setq cnt (1+ cnt))(vl-Catch-All-Apply 'vla-delete (list obj)))
   
10.         )
    
11.       )
    
12.     )
    
13.     (if (> cnt 0)(princ (strcat "\n-->共删除 " (itoa cnt) " 个图层为 "dm" 的对象")))
    
14.   )
    
15.   (if (< 0 cnt)(vla-regen doc acallviewports))
    
16. )

(defun c:della ( / blk obj cnt dm doc )<br />   (setq cnt 0)(princ"\n-->按图层删除对象")<br />   (while (setq dm (car (entsel "要删除的图层")))<br />     (setq dm (Cdr(Assoc 8 (Entget dm))))<br />     (vlax-for blk (vla-get-Blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))<br />       (vlax-for obj blk<br />         (if (= (Vlax-Get obj 'Layer) dm)<br />           (progn (setq cnt (1+ cnt))(vl-Catch-All-Apply 'vla-delete (list obj)))<br />         )<br />       )<br />     )<br />     (if (> cnt 0)(princ (strcat "\n-->共删除 " (itoa cnt) " 个图层为 "dm" 的对象")))<br />   )<br />   (if (< 0 cnt)(vla-regen doc acallviewports))<br /> )

kozmosovia

amook147 发表于 2025-8-28 12:43
什么样的图层不能删除？     我想看看

用purge命令可以清理的图层才能被删除。为啥不能删除，看以purge里面查看

forestgxc

leecicii 发表于 2025-8-28 15:13
所以删除图层前始终要满足这几个条件，先清空该图层再删除图层是吧。

是的，先删实体，再删图层


selectsimilar命令或者可以用用试试，不用这么麻烦