指定图层删除

lingfne · 发表于 2025-8-27 20:18:00

本帖最后由 lingfne 于 2025-8-27 22:11 编辑

除了这个办法，这个写法,执行后跟出很多提示,本人觉得太多提示不雅观!!

(command "LAYDEL" "n" "图层1" "" "y")

有没有更好的写法?请各前辈出手指点一下或给个建议,谢谢!!

forestgxc · 发表于 2025-8-28 08:12:36

大神说了
问问AI,写个遍历数据库+vla删除

(vl-load-com)
(setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
(vl-catch-all-apply 'vla-delete (list (vla-item layers "图层1")))

maiko · 发表于 2025-8-28 15:24:58

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

forestgxc · 发表于 2025-8-28 08:59:45

leecicii 发表于 2025-8-28 08:51
(command "LAYDEL" "n" "图层1" "" "y")这个办法只能删除空图层，vla可以直接删除带有元素的图层吗？

(vl-load-com)
  (setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
  (if (tblobjname "LAYER" "图层1")
(progn
   (setq ss (ssget "X" '((8 . "图层1"))))
   (if ss
      (command "._ERASE" ss "")
   )
   (vl-catch-all-apply 'vla-delete (list (vla-item layers "图层1")))
)
(princ "\n图层1不存在。")
  )

xyp1964 · 发表于 2025-8-27 20:34:33

(defun c:tt ()
"选层删除"
(while (setq s1 (car (entsel "\n选择参照图层实体<退出>: ")))
(setq ss (ssget "x" (list (cons 8 (cdr (assoc 8 (entget s1)))))))
(command "erase" ss "")
)
(princ)
)

qifeifei · 发表于 2025-8-27 20:40:55

学习了我也一直在寻找方法

你有种再说一遍 · 发表于 2025-8-27 20:54:36

xyp1964 发表于 2025-8-27 20:34

缺少遍历字典哦

lingfne · 发表于 2025-8-27 21:23:44

除了这个办法，这个写法,执行后跟出很多提示,本人觉得太多提示不雅观!!
(command "LAYDEL" "n" "图层1" "" "y")
有没有更好的写法?请各前辈出手指点一下或给个建议,谢谢!!
这句话的“(command "LAYDEL" "n" "图层1" "" "y")”的意思是用于，执行某一种程序后，一不用选择，二不用获取，后台自动删除指定的图层。

你有种再说一遍 · 发表于 2025-8-27 21:41:19

lingfne 发表于 2025-8-27 21:23
除了这个办法，这个写法,执行后跟出很多提示,本人觉得太多提示不雅观!!
(command "LAYDEL" "n" "图层1" ...

问问AI,写个遍历数据库+vla删除

qazxswk · 发表于 2025-8-27 21:55:49

删除图层是删除图层上的对象，所以谨慎操作，有些图层，你想删除也删不掉，最好的办法，是与其他图层合并。

lingfne · 发表于 2025-8-27 22:01:37

你有种再说一遍发表于 2025-8-27 21:41
问问AI,写个遍历数据库+vla删除

没用过AI，我只是单纯想，用 Visual LISP 去写程序，多学些知识！同时接受你的提议

lingfne · 发表于 2025-8-27 22:09:28

本帖最后由 lingfne 于 2025-8-27 22:10 编辑

qazxswk 发表于 2025-8-27 21:55
删除图层是删除图层上的对象，所以谨慎操作，有些图层，你想删除也删不掉，最好的办法，是与其他图层合并。

我想在这里删除红色的线框，执行程序过后，红色的线框多余了。

账号		自动登录	找回密码
密码			注册

[提问] 指定图层删除

点评

本帖子中包含更多资源