已解答

CAD83 · 发表于 2015-7-16 09:20:57

本帖最后由 CAD83 于 2015-7-22 16:39 编辑

如图中有1-30个图层能否一次删除指定的层?? 一层层删除工作量比较大，每个图中层名都是想同的............

自贡黄明儒 · 发表于 2015-7-16 09:28:55

层上有对象，是不是全删了，最后成空白图纸？

CAD83 · 发表于 2015-7-16 09:39:51

不是这意思，单删除部份的层,如有30层,我单删除2层 3层 5层 9 层 12层 16层 22层 23层别的不删

CAD83 · 发表于 2015-7-16 14:44:11

CAD83 发表于 2015-7-16 09:39
不是这意思，单删除部份的层,如有30层,我单删除2层 3层 5层 9 层 12层 16层 22层 23层别的不 ...

晕啊，是删除层，不是清空层名

spp_wall · 发表于 2015-7-16 15:53:53

问的问题还要看完回复才懂

先写一个lisp 把要删的图层写进去

然后用批处理（论坛有）就可以把全部图要删的删了

CAD83 · 发表于 2015-7-17 08:00:03

本人比较菜，给给写个吗

ZZXXQQ · 发表于 2015-7-17 10:32:16

(defun c:tt ()
(princ "\n选物删层")
(while (setq s1 (entsel "\n选择一个物体: "))
(setq lnm (assoc 8 (entget(car s1))))
(if (setq ss (ssget "X" (list lnm)))
(command "_.ERASE" ss "")
)
)
(princ)
)

(defun c:tt ()
(princ "删除层内容")
(if (setq lnm (getstring "\n层名: "))
(if (setq ss (ssget "X" (list (cons 8 lnm))))
(command "_.ERASE" ss "")
)
)
(princ)
)

edata · 发表于 2015-7-17 10:42:13

真心没看懂是删除图层，还是删除图层的图形。

CAD83 · 发表于 2015-7-17 17:12:16

(defun c:tt ()
(princ "删除层内容")
(if (setq lnm (getstring "\n层名: "))
  (if (setq ss (ssget "X" (list (cons 8 lnm))))
(command "_.ERASE" ss "")
  )
)
(princ)
)
能指定层批删除吗??? 如第2层 3层 5层  9 层 12层 16层  22层 23层，不用一个个输入,

CAD83 · 发表于 2015-7-19 08:03:51

没人出手，是不是比较有难度啊？？？

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

[已解答] 已解答

点评