清风明月名字 发表于 2013-12-28 18:26:12

求点选块参照中图元关闭它所在层的代码

求点选块参照中图元关闭它所在层的代码
在现实工作中，要关闭某些图元，但它们却在块参照中，我只好将块复制出来，炸开一个，再选图元关闭。
我就想求一个代码，不需这么繁琐，只需直接点击块内某图元A，则关闭A所在层。
求高手帮忙！

陨落 发表于 2013-12-28 18:26:13

查了一下，发现还是比较容易实现的(defun c:st()
(setq ku1 (car(nentsel "选择块"))
      cont(entget ku1)
      cen(cdr(assoc 8 cont)))
(if (= cen (getvar "clayer"))
(command "layer" "off" cen "y""")
(command "layer" "off" cen "")
)
)
(defun c:op()
(command "layer" "on" cen "")
)

陨落 发表于 2013-12-29 17:06:22

这个挺有用，我看看能不能写出来

陨落 发表于 2013-12-29 17:45:00

关闭的命令：st，开启刚刚关闭的图层的命令为op

adc 发表于 2013-12-29 20:53:00

陨落 发表于 2013-12-29 17:45 static/image/common/back.gif
关闭的命令：st，开启刚刚关闭的图层的命令为op

简单好用

混沌初开 发表于 2013-12-30 00:57:43

这个受益匪浅！

混沌初开 发表于 2013-12-30 00:59:07

谢谢二楼大神帮忙！

tranney 发表于 2014-2-3 17:29:08

要是可以多选就好了
页: [1]
查看完整版本: 求点选块参照中图元关闭它所在层的代码