[编程申请]：如何只开选择层

dhxf

如题，如何只开选择层，谢谢

zxq0220

只保留显示当前层：
(command "-layer" "lock" "*" "")

aaddff

(command "layiso")

它山之石

安装ET（Express Tool）工具
另外一般的商业软件中
也都有此类功能

hmillf

;;;[仅显示选层]
(defun c:G (/ ES EN EL A)
(princ "请选择对象,未被选中的对象所在层将被关闭")
(setq ES (ssget) A 0 EN ""EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "layer" "off" "*" "y" "on" (eval FL) "")
(princ)
)

zml84

楼上代码，修改后：

2. 
   
3. (defun C:G (/ SS I LAYER)
   
4.     (princ "\n请注意：未被选中的对象所在层将被关闭")
   
5.     (if (setq SS (ssget))
   
6.         (progn
   
7.             (command "_.layer" "off" "*" "y" "")
   
8.             (setq I 0)
   
9.             (repeat (sslength SS)
   
10.                 (setq LAYER (cdr (assoc 8 (entget (ssname SS I)))))
    
11.                 (command "_.layer" "on" LAYER "")
    
12.                 (setq I (1+ I))
    
13.             )
    
14.         )
    
15.     )
    
16.     (princ)
    
17. )
    

<br /> (defun C:G (/ SS I LAYER)<br />     (princ "\n请注意：未被选中的对象所在层将被关闭")<br />     (if (setq SS (ssget))<br />         (progn<br />             (command "_.layer" "off" "*" "y" "")<br />             (setq I 0)<br />             (repeat (sslength SS)<br />                 (setq LAYER (cdr (assoc 8 (entget (ssname SS I)))))<br />                 (command "_.layer" "on" LAYER "")<br />                 (setq I (1+ I))<br />             )<br />         )<br />     )<br />     (princ)<br /> )<br />

hmillf

还是版主强！清爽了许多！

swc00

看看那