社区 › AutoLISP/Visual LISP 编程技术 › 如何删除所有关闭的图层

mituzhe 发表于 2024-1-29 15:21:18

如何删除所有关闭的图层

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

wide 发表于 2024-1-29 16:28:00

本帖最后由 wide 于 2024-1-29 17:55 编辑

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

liuhe 发表于 2024-1-29 16:28:49

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

1291500406 发表于 2024-1-29 17:44:21

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

mituzhe 发表于 2024-1-29 22:48:24

(defun delOffLayer (/ lay)
(command "_.undo" "be")
(command "_.color" "")
(vlax-for lay
    (vla-get-layers
      (vla-get-activedocument
      (vlax-get-acad-object)
      )
    )
    (if (and (= (vla-get-LayerOn lay) :vlax-false) (/= "0" (vla-get-Name lay)))
      (command "laydel" "n" (vla-get-Name lay) "" "y")
    )
)
(command "-purge" "a" "" "n")
(command "_.undo" "e")
)自己拼凑了一段代码, 缺点应该是不能处理有参照的图层

paulpipi 发表于 2024-1-29 22:55:24

感谢各位大神分享

panliang9 发表于 2024-1-31 11:37:14

借花献佛：

月下闲人 发表于 2024-1-31 13:43:10

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

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

wide 发表于 2024-1-31 14:55:27

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

查看完整版本: 如何删除所有关闭的图层