[求助]：申请编程：冻结选定层以外的所有层！

tchthong

请高手帮忙，我经常想把某一个层以外的层都冻结，只剩下我选的层，方便画图

xyp1964

2. [FONT=courier new];;;*图层隔离
   
3. (defun c:test (/ s1)
   
4.   (WHILE (NOT (setq s1 (car (entsel "\n选择层物体: ")))))
   
5.   (command "layer" "s" (cdr(assoc  8(entget s1))) "f" "*" "")
   
6. )
   
7. [/FONT]

[FONT=courier new];;;*图层隔离<br /> (defun c:test (/ s1)<br />   (WHILE (NOT (setq s1 (car (entsel "\n选择层物体: ")))))<br />   (command "layer" "s" (cdr(assoc  8(entget s1))) "f" "*" "")<br /> )<br /> [/FONT]

tchthong

楼上的程序有几个不完美的地方
1、不能先选后执行命令（我更希望如此）
2、不能多选（就是说无法冻结所选几个图层以外的图层）

xyp1964

最初由 tchthong 发布
[B]请高手帮忙，我经常想把某一个层以外的层都冻结，只剩下我选的层，方便画图 [/B]

“某一个层以外的层”并不是“某些层以外的层”！

tchthong

不好意思，应该是“某些层”

希望斑竹修改一下。。辛苦了

lzc0

很有用的功能啊!

senher

希望斑竹修改一下。。辛苦了

qiaqiadeng

满足楼主的要求，程序有二，如下：

2. 
   
3. (defun c:ea ()                                ;仅显示所选多个图层（也可一个）
   
4.   (prompt "\n请选择要保留的图层,要显示所有图层请直接按右键：")
   
5.   (setq ss (ssget))
   
6.   (if (/= ss nil)
   
7.     (progn
   
8.       (setq num (sslength ss))
   
9.       (setq n 0)
   
10.       (command "layer" "off" "*" "y" on "" "")
    
11.       (repeat num
    
12.         (setq entlist (entget (ssname ss n)))
    
13.         (setq lname (cdr (assoc 8 entlist)))
    
14.         (command "layer" "on" lname "")
    
15.         (setq n (+ n 1))
    
16.       )
    
17.       (prompt (itoa num))
    
18.     )
    
19.     (command "layer" "on" "*" "")
    
20.   )
    
21. )
    
22. 
    
23. 
    
24. (defun c:sd ();锁定所选多个图层（也可一个）以外的图层
    
25.   (vl-load-com)
    
26.   (setq acadObject (vlax-get-acad-object))
    
27.   (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))
    
28.   (setq LayersObj (vla-get-layers acadDocument))
    
29. 
    
30.   (defun js (key)                        ;key为true则锁定所有图层，否则解锁所有图层
    
31.     (vl-load-com)
    
32.     (setq acadObject (vlax-get-acad-object))
    
33.     (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))
    
34.     (setq LayersObj (vla-get-layers acadDocument))
    
35.     (setq n (vla-get-count layersobj))        ;图层的数量
    
36.     (if        (= key 1)
    
37.       (progn
    
38.         (setq i 0)
    
39.         (repeat        n
    
40.           (setq layvla (vla-item LayersObj i))
    
41.           (vla-put-lock layvla :vlax-true)
    
42.           (setq i (+ i 1))
    
43.         )
    
44.       )
    
45.       (progn
    
46.         (setq i 0)
    
47.         (repeat        n
    
48.           (setq layvla (vla-item LayersObj i))
    
49.           (vla-put-lock layvla :vlax-false)
    
50.           (setq i (+ i 1))
    
51.         )
    
52.       )
    
53.     )
    
54.   )
    
55.   (prompt "\n请选取不要锁定的实体，要全部解锁请直接按右键: ")
    
56.   (setq layselect (ssget))
    
57.   (if (/= layselect nil)                ;如果选中了对象
    
58.     (progn
    
59.       (setq num (sslength layselect))        ;选择集的数量
    
60.       (js 1)                                ;锁定所有图层
    
61.       (setq i 0)
    
62.       (repeat num
    
63.         (setq layent (ssname layselect i))
    
64.         (setq layentvla (vlax-ename->vla-object layent))
    
65.         (setq laystr (vla-get-layer layentvla))
    
66.         (setq layvla (vla-item LayersObj laystr))
    
67.         (setq laylock (vla-get-lock layvla))
    
68.         (if (= laylock :vlax-true)
    
69.           (progn
    
70.             (vla-put-lock layvla :vlax-false)
    
71.             (princ (strcat "\n" laystr " 层已解锁"))
    
72.           )
    
73.         )
    
74.         (setq i (+ i 1))
    
75.       )
    
76.     )
    
77.     (js 2)                                ;解锁所有图层
    
78.   )
    
79.   (princ)
    
80. )

<br /> (defun c:ea ()                                ;仅显示所选多个图层（也可一个）<br />   (prompt "\n请选择要保留的图层,要显示所有图层请直接按右键：")<br />   (setq ss (ssget))<br />   (if (/= ss nil)<br />     (progn<br />       (setq num (sslength ss))<br />       (setq n 0)<br />       (command "layer" "off" "*" "y" on "" "")<br />       (repeat num<br />         (setq entlist (entget (ssname ss n)))<br />         (setq lname (cdr (assoc 8 entlist)))<br />         (command "layer" "on" lname "")<br />         (setq n (+ n 1))<br />       )<br />       (prompt (itoa num))<br />     )<br />     (command "layer" "on" "*" "")<br />   )<br /> )<br /> <br /> <br /> (defun c:sd ();锁定所选多个图层（也可一个）以外的图层<br />   (vl-load-com)<br />   (setq acadObject (vlax-get-acad-object))<br />   (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))<br />   (setq LayersObj (vla-get-layers acadDocument))<br /> <br />   (defun js (key)                        ;key为true则锁定所有图层，否则解锁所有图层<br />     (vl-load-com)<br />     (setq acadObject (vlax-get-acad-object))<br />     (setq acadDocument (vlax-get-property acadObject 'ActiveDocument))<br />     (setq LayersObj (vla-get-layers acadDocument))<br />     (setq n (vla-get-count layersobj))        ;图层的数量<br />     (if        (= key 1)<br />       (progn<br />         (setq i 0)<br />         (repeat        n<br />           (setq layvla (vla-item LayersObj i))<br />           (vla-put-lock layvla :vlax-true)<br />           (setq i (+ i 1))<br />         )<br />       )<br />       (progn<br />         (setq i 0)<br />         (repeat        n<br />           (setq layvla (vla-item LayersObj i))<br />           (vla-put-lock layvla :vlax-false)<br />           (setq i (+ i 1))<br />         )<br />       )<br />     )<br />   )<br />   (prompt "\n请选取不要锁定的实体，要全部解锁请直接按右键: ")<br />   (setq layselect (ssget))<br />   (if (/= layselect nil)                ;如果选中了对象<br />     (progn<br />       (setq num (sslength layselect))        ;选择集的数量<br />       (js 1)                                ;锁定所有图层<br />       (setq i 0)<br />       (repeat num<br />         (setq layent (ssname layselect i))<br />         (setq layentvla (vlax-ename->vla-object layent))<br />         (setq laystr (vla-get-layer layentvla))<br />         (setq layvla (vla-item LayersObj laystr))<br />         (setq laylock (vla-get-lock layvla))<br />         (if (= laylock :vlax-true)<br />           (progn<br />             (vla-put-lock layvla :vlax-false)<br />             (princ (strcat "\n" laystr " 层已解锁"))<br />           )<br />         )<br />         (setq i (+ i 1))<br />       )<br />     )<br />     (js 2)                                ;解锁所有图层<br />   )<br />   (princ)<br /> )

xyp1964

2. [FONT=courier new](defun c:test (/ s1)
   
3.   (cmdla0)
   
4.   (setq layerlst '())
   
5.   (WHILE (setq s1 (car (entsel "\n选择层物体: ")))
   
6.     (setq la (xyp-get-dxf 8 s1))
   
7.     (if        (not (member la layerlst))
   
8.       (setq layerlst (cons la layerlst)
   
9.       )
   
10.     )
    
11.   )
    
12.   (command "layer" "s" "0" "")
    
13.   (foreach la layerlst
    
14.     (command "layer" "f" la "")
    
15.   )
    
16.   (cmdla1)
    
17. )[/FONT]

[FONT=courier new](defun c:test (/ s1)<br />   (cmdla0)<br />   (setq layerlst '())<br />   (WHILE (setq s1 (car (entsel "\n选择层物体: ")))<br />     (setq la (xyp-get-dxf 8 s1))<br />     (if        (not (member la layerlst))<br />       (setq layerlst (cons la layerlst)<br />       )<br />     )<br />   )<br />   (command "layer" "s" "0" "")<br />   (foreach la layerlst<br />     (command "layer" "f" la "")<br />   )<br />   (cmdla1)<br /> )[/FONT]