[编程申请]：能否编一个层亮显的程序

zxdvip

2006中图块或外部引用在位编辑功能,在选取外部引用后,外部引用会亮显,其他会褪色b变暗.
这给编辑带来很大方便.我觉得如果,按层选择,被选择层亮显,其他层变暗,会对效率的提高有很大帮助.

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (cmdla0)
   
4.   (setq        s1 (car (entsel "\n选择物体 : "))
   
5.         la (cdr (assoc 8 (entget s1)))
   
6.         ss (ssget "X" (list (cons 8 la)))
   
7.   )
   
8.   (xyp-Redraw3 ss)
   
9.   (cmdla1)
   
10. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (cmdla0)<br />   (setq        s1 (car (entsel "\n选择物体 : "))<br />         la (cdr (assoc 8 (entget s1)))<br />         ss (ssget "X" (list (cons 8 la)))<br />   )<br />   (xyp-Redraw3 ss)<br />   (cmdla1)<br /> )[/FONT]

zxdvip

谢谢斑竹回复，程序很好用。
不知能否达到这种效果呢？

zxdvip

效果如下

eachy

工具箱中有个“图层孤立”命令，其他图层锁定并灰显（单独指定颜色的实体不变灰）

zxdvip

是指XD工具箱吗?ET里的图层孤立，是把其他层都关闭。
你说的正是我想要的效果，在检查图纸时特别有用。
谢谢回复！

xxming

eachy斑竹能否单独提供图层孤立程序供参考

李军

好，我下来看看