指定图层删除

leecicii

forestgxc 发表于 2025-8-28 08:12
大神说了
问问AI,写个遍历数据库+vla删除

(command "LAYDEL" "n" "图层1" "" "y")这个办法只能删除空图层，vla可以直接删除带有元素的图层吗？

forestgxc

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不存在。")
  )

被风吹走的灰尘

删除指定图层，非源码，转个币用。

被风吹走的灰尘

forestgxc 发表于 2025-8-28 08:12
大神说了
问问AI,写个遍历数据库+vla删除

不好意思，反对这个是误点了，对不起~~

kozmosovia

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

万一某个块里有个图形在这个图层上，就删不掉了。

kozmosovia

ET有现成的LayDel命令。没必要自己写。

forestgxc

kozmosovia 发表于 2025-8-28 11:22
万一某个块里有个图形在这个图层上，就删不掉了。

laydel一样不能删除块
能自己有个源码，就能随便玩了，玩玩而已，没什么不好

kozmosovia

forestgxc 发表于 2025-8-28 11:37
laydel一样不能删除块
能自己有个源码，就能随便玩了，玩玩而已，没什么不好

可以的，块里面有图元在要删除的图层，图层删除后，块内容会变。ET会警告图块的变化并由用户确认是否接受

amook147

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

什么样的图层不能删除？    我想看看

leecicii

forestgxc 发表于 2025-8-28 08:59
(vl-load-com)
  (setq layers (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
  ...

所以删除图层前始终要满足这几个条件，先清空该图层再删除图层是吧。