求指定图层凸显或亮显程序及关闭凸显程序

品茗新秀

求指定图层凸显或亮显程序及关闭凸显程序

Gu_xl

1. ;;打开亮显
   
2. (defun c:dktx ()
   
3.   (if (setq e (car(entsel "\n选择要亮显的图层对象")))
   
4.     (progn
   
5.       (setq s (ssget "x" (list (assoc 8 (entget e)))))
   
6.       (repeat (setq n (sslength s))
   
7.         (redraw (ssname s (setq n (1- n))) 3)
   
8.         )
   
9.       )
   
10.     )
    
11.   (princ)
    
12.   )
    
13. ;;关闭亮显
    
14. (defun c:gbtx ()
    
15.   (if (setq e (car(entsel "\n选择要恢复亮显的图层对象")))
    
16.     (progn
    
17.       (setq s (ssget "x" (list (assoc 8 (entget e)))))
    
18.       (repeat (setq n (sslength s))
    
19.         (redraw (ssname s (setq n (1- n))) 4)
    
20.         )
    
21.       )
    
22.     )
    
23.   (princ)
    
24.   )
    

;;打开亮显<br /> (defun c:dktx ()<br />   (if (setq e (car(entsel "\n选择要亮显的图层对象")))<br />     (progn<br />       (setq s (ssget "x" (list (assoc 8 (entget e)))))<br />       (repeat (setq n (sslength s))<br />         (redraw (ssname s (setq n (1- n))) 3)<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br /> ;;关闭亮显<br /> (defun c:gbtx ()<br />   (if (setq e (car(entsel "\n选择要恢复亮显的图层对象")))<br />     (progn<br />       (setq s (ssget "x" (list (assoc 8 (entget e)))))<br />       (repeat (setq n (sslength s))<br />         (redraw (ssname s (setq n (1- n))) 4)<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br />

lizhiqiang9801

我试了一下 图层是选定状态 没有亮显呢 不知道版主能修改一下吗

sky899150

Gu_xl 发表于 2012-9-27 00:10

被选图层亮显，然后非选图层能不能变成灰色呢？ 这样更凸显被选中的图层，便于查看