二个关于关闭图层的LSP，求高手整合下

xxdxx001

一个是关闭对象所在层，一个是只显示被选对象所在层，求高手整合成一个命令。(命令方式：选择要关闭的图层(或空格选择不关闭的图层 )

Andyhon

2. 
   
3. ;;; 关闭对像所在层
   
4. (defun lf (ss /  c en lay)
   
5.    (setq c 0)
   
6.    (while (< c (sslength ss))
   
7.      (setq en (ssname ss c))
   
8.      (setq lay (cdr (assoc 8 (entget en))))
   
9.      (if (not (member lay laylst))
   
10.        (setq laylst (cons lay laylst))
    
11.      )
    
12.      (if (= lay (getvar "clayer"))
    
13.        (command "-layer" "off" lay "y" "")
    
14.        (command "-layer" "off" lay "")
    
15.      )
    
16.      (setq c (+ 1 c))
    
17.    )
    
18.    (princ)
    
19. )
    
20. 
    
21. ;;; 只显示被选对像所在层
    
22. (DEFUN lg (Es / ES EN EL A)
    
23. (setq  A 0 EN "" EL nil FL nil)
    
24. (while (/= EN nil)
    
25. (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
    
26. (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
    
27. (repeat (- A 2)
    
28. (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
29.   FL (strcat EN "," FL) EL (cdr EL)) )
    
30. (command "LAYER" "off" "*" "y" "on" (eval FL) "")
    
31. (princ)
    
32. )
    
33. 
    
34. (defun C:Lyr2 ()
    
35.   (princ "\n选择要关闭的图层(或空格,再选择不关闭的图层 )")
    
36.   (setq ss (ssget))
    
37.   (cond
    
38.     ;; 空格选择不关闭的图层
    
39.    ((Null ss) (lg (ssget)))
    
40.    
    
41.    (T (lf ss))
    
42.   )
    
43. )
    

<br /> ;;; 关闭对像所在层<br /> (defun lf (ss /  c en lay)<br />    (setq c 0)<br />    (while (< c (sslength ss))<br />      (setq en (ssname ss c))<br />      (setq lay (cdr (assoc 8 (entget en))))<br />      (if (not (member lay laylst))<br />        (setq laylst (cons lay laylst))<br />      )<br />      (if (= lay (getvar "clayer"))<br />        (command "-layer" "off" lay "y" "")<br />        (command "-layer" "off" lay "")<br />      )<br />      (setq c (+ 1 c))<br />    )<br />    (princ)<br /> )<br /> <br /> ;;; 只显示被选对像所在层<br /> (DEFUN lg (Es / ES EN EL A)<br /> (setq  A 0 EN "" EL nil FL nil)<br /> (while (/= EN nil)<br /> (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))<br /> (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))<br /> (repeat (- A 2)<br /> (setq EN (cdr (assoc ' 8 (entget (car EL))))<br />   FL (strcat EN "," FL) EL (cdr EL)) )<br /> (command "LAYER" "off" "*" "y" "on" (eval FL) "")<br /> (princ)<br /> )<br /> <br /> (defun C:Lyr2 ()<br />   (princ "\n选择要关闭的图层(或空格,再选择不关闭的图层 )")<br />   (setq ss (ssget))<br />   (cond<br />     ;; 空格选择不关闭的图层 <br />    ((Null ss) (lg (ssget)))<br />     <br />    (T (lf ss))<br />   )<br /> )<br />

xxdxx001

Andyhon 发表于 2013-7-27 11:22

不对啊，可能是我没表达清楚，你这个好像只一有一个关闭对象所在层的功能，还有一个只显示被选对象所在层 的功能好像没有用上，我再表达下我的意思哈，麻烦大哥再帮我改下，
输入命令空格，提示：选择要关闭的图层(或空格选择不关闭的图层，没有被选中的图层将会关闭 )， 这里是有二个选项的，1，我没有再次敲空格而是直接选择图层上对象，则执行的是:"关闭对象所在层的命令"；2.如果我再次敲 空格 则执行的是:"只显示被选对象所在层的命令"（通过多敲一个空格来选择是执行关闭对象所在层.lsp还是只显示被选对象所在层.lsp）

xxdxx001

哈哈，我找了个图，仔细认真重新试了下功能，发现Andyhon大哥的是OK的，，是我太粗心了，我敲一下空格提示的是选择对象，我再敲一下空格，还是提示的是选择对象，所以误会了

xxdxx001

Andyhon 发表于 2013-7-27 11:22

Andyhon大哥你这个是对的，还能不能麻烦改下，命令提示，输入lyr2空格，提示：选择要关闭的图层(或空格选择不关闭的图层，没有被选中的图层将会关闭 )，再敲空格，提示：选择不关闭的图层，没有被选中的图层将会关闭

Andyhon

2. 
   
3. (defun C:Lyr2 ()
   
4.   (princ "\n选择要关闭的图层(或空格,再选择不关闭的图层 ): ")
   
5.   (setq ss (ssget))
   
6.   (cond
   
7.     ;; 空格 --> 选择不关闭的图层
   
8.    ((Null ss)
   
9.     (princ "\n那么选择不关闭的图层: ")
   
10.     (lg (ssget))
    
11.    )
    
12.    
    
13.    (T (lf ss))
    
14.   )
    
15. )
    

<br /> (defun C:Lyr2 ()<br />   (princ "\n选择要关闭的图层(或空格,再选择不关闭的图层 ): ")<br />   (setq ss (ssget))<br />   (cond<br />     ;; 空格 --> 选择不关闭的图层 <br />    ((Null ss)<br />     (princ "\n那么选择不关闭的图层: ") <br />     (lg (ssget))<br />    )<br />     <br />    (T (lf ss))<br />   )<br /> )<br />

alexmai

cad命令
只显示被选对象所在层 LAYISO 还原 layuniso

magicheno

这个非常好用

paulpipi

ajunseo

这个非常好用