如何删除所有关闭的图层

mituzhe

RT, 请教大家, 如何删除所有处于关闭状态的图层

wide

先判断是否关闭，然后删除。

liuhe

新建 dwg图纸，全选  复制  粘贴到 新dwg图纸

1291500406

1. (defun c:bb(/ en)
   
2.                             (tblnext "LAYER" t )
   
3.                             (while
   
4.                                 (setq en (tblnext "LAYER"  ))
   
5.                                 (if
   
6.                                     (=(cdr(assoc 62 en ))-7)
   
7.                                     (command "laydel"
   
8.                                         "n"
   
9.                                         (cdr(assoc 2 en ))
   
10.                                         ""
    
11.                                         "Y"
    
12.                                     )
    
13.                                 )
    
14.                             )
    
15.                         )

(defun c:bb(/ en)<br />                             (tblnext "LAYER" t )<br />                             (while<br />                                 (setq en (tblnext "LAYER"  ))<br />                                 (if<br />                                     (=(cdr(assoc 62 en ))-7)<br />                                     (command "laydel"<br />                                         "n"<br />                                         (cdr(assoc 2 en ))<br />                                         ""<br />                                         "Y"<br />                                     )<br />                                 )<br />                             )<br />                         )

mituzhe

2. (defun delOffLayer (/ lay)
   
3.   (command "_.undo" "be")
   
4.   (command "_.color" "")
   
5.   (vlax-for lay
   
6.     (vla-get-layers
   
7.       (vla-get-activedocument
   
8.         (vlax-get-acad-object)
   
9.       )
   
10.     )
    
11.     (if (and (= (vla-get-LayerOn lay) :vlax-false) (/= "0" (vla-get-Name lay)))
    
12.       (command "laydel" "n" (vla-get-Name lay) "" "y")
    
13.     )
    
14.   )
    
15.   (command "-purge" "a" "" "n")
    
16.   (command "_.undo" "e")
    
17. )

(defun delOffLayer (/ lay) <br />   (command "_.undo" "be")<br />   (command "_.color" "")<br />   (vlax-for lay <br />     (vla-get-layers <br />       (vla-get-activedocument <br />         (vlax-get-acad-object)<br />       )<br />     )<br />     (if (and (= (vla-get-LayerOn lay) :vlax-false) (/= "0" (vla-get-Name lay))) <br />       (command "laydel" "n" (vla-get-Name lay) "" "y")<br />     )<br />   )<br />   (command "-purge" "a" "" "n")<br />   (command "_.undo" "e")<br /> )

自己拼凑了一段代码, 缺点应该是不能处理有参照的图层

paulpipi

感谢各位大神分享

panliang9

借花献佛：

月下闲人

panliang9 发表于 2024-1-31 11:37
借花献佛：

大佬把关闭和冻结的图层同时删除怎么改？保留0,Defpoints层

wide

关闭和冻结的图层同时删除,保留0,Defpoints层