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

清风明月名字

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

陨落

查了一下，发现还是比较容易实现的

2. (defun c:st()
   
3. (setq ku1 (car(nentsel "选择块"))
   
4.       cont(entget ku1)
   
5.       cen(cdr(assoc 8 cont)))
   
6. (if (= cen (getvar "clayer"))
   
7. (command "layer" "off" cen "y""")
   
8. (command "layer" "off" cen "")
   
9. )
   
10. )
    
11. (defun c:op()
    
12. (command "layer" "on" cen "")
    
13. )

(defun c:st()<br /> (setq ku1 (car(nentsel "选择块"))<br />       cont(entget ku1)<br />       cen(cdr(assoc 8 cont)))<br /> (if (= cen (getvar "clayer"))<br /> (command "layer" "off" cen "y""")<br /> (command "layer" "off" cen "")<br /> )<br /> )<br /> (defun c:op()<br /> (command "layer" "on" cen "")<br /> )

陨落

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

陨落

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

adc

陨落 发表于 2013-12-29 17:45
关闭的命令：st，开启刚刚关闭的图层的命令为op

简单好用

混沌初开

这个受益匪浅！来自: Android客户端

混沌初开

谢谢二楼大神帮忙！来自: Android客户端

tranney

要是可以多选就好了