[求助]：如何用快捷键轮换开关几个图层？

JQKA

在画图时，想将2个图层用快捷键交替切换，如何实现？

zhynt

呵呵，看似简单，实际上颇为复杂。

e2002

说清楚你的要求，大家才好帮你啊？

dys800113

我也想知道！

fylinwater

我是这样处理的
先做和扩充工具里的一样的命令 点图形实体来关闭层
然后将关闭的层名称记录在一个全局变量表里
在用命令来恢复它 恢复的时候按序号列出被关闭的历史层名，
只要输入序号（当然也可以输入层名）就可以了，缺省为最后一次关闭的层

zhynt

好了：（得到楼上的提示，原来并不复杂）

2. 
   
3. ;;;
   
4. ;;; 分别选定两个图层所在的实体,并将其中之一设为当前层
   
5. ;;;
   
6. (defun c:saveLayer (/ lname e1 e2)
   
7.    (setq e1 (car (entsel "\n选择图层一所在的实体 :")))
   
8.    (setq l1 (cdr (assoc 8 (entget e1))))
   
9.    (setq e2 (car (entsel "\n选择图层二所在的实体 :")))
   
10.    (setq l2 (cdr (assoc 8 (entget e2))))
    
11.    (command "-layer" "s" l1 "" )
    
12. (princ)
    
13. )
    
14. ;;;
    
15. ;;; 图层切换开关
    
16. ;;;
    
17. (defun C:kol ()
    
18.     (setq lname (getvar "clayer"))  
    
19.     (if (equal l1 lname)
    
20.       (progn
    
21.         (command "-layer" "off" l1 "y" "")
    
22.         (command "-layer" "on" l2 "" )
    
23.         (command "-layer" "s" l2 "" )
    
24.       )
    
25.       (progn
    
26.         (command "-layer" "off" l2 "y" "")
    
27.         (command "-layer" "on" l1 "" )
    
28.         (command "-layer" "s" l1 "" )
    
29.       )
    
30.      )
    
31. )
    

<br /> ;;;<br /> ;;; 分别选定两个图层所在的实体,并将其中之一设为当前层<br /> ;;;<br /> (defun c:saveLayer (/ lname e1 e2)<br />    (setq e1 (car (entsel "\n选择图层一所在的实体 :")))<br />    (setq l1 (cdr (assoc 8 (entget e1))))<br />    (setq e2 (car (entsel "\n选择图层二所在的实体 :")))<br />    (setq l2 (cdr (assoc 8 (entget e2))))<br />    (command "-layer" "s" l1 "" )<br /> (princ)<br /> )<br /> ;;;<br /> ;;; 图层切换开关<br /> ;;;<br /> (defun C:kol ()<br />     (setq lname (getvar "clayer"))  <br />     (if (equal l1 lname)<br />       (progn<br />         (command "-layer" "off" l1 "y" "")<br />         (command "-layer" "on" l2 "" )<br />         (command "-layer" "s" l2 "" )<br />       )<br />       (progn <br />         (command "-layer" "off" l2 "y" "")<br />         (command "-layer" "on" l1 "" )<br />         (command "-layer" "s" l1 "" )<br />       )<br />      )<br /> )<br />

JQKA

如果不设为当前层，怎么办了？

zhynt

那就这样啦：

2. 
   
3. ;;;
   
4. ;;; 分别选定两个图层所在的实体,并将其中之一设为当前层
   
5. ;;;
   
6. (defun c:saveLayer (/ lname e1 e2)
   
7.    (setq e1 (car (entsel "\n选择图层一所在的实体 :")))
   
8.    (setq l1 (cdr (assoc 8 (entget e1))))
   
9.    (setq e2 (car (entsel "\n选择图层二所在的实体 :")))
   
10.    (setq l2 (cdr (assoc 8 (entget e2))))
    
11. ;  (command "-layer" "s" l1 "" )      将这一行去掉
    
12. (princ)
    
13. )
    
14. ;;;
    
15. ;;; 图层切换开关
    
16. ;;;
    
17. (defun C:kol ()
    
18.         (setq l3 l1)(setq l4 l2)
    
19.         (command "-layer" "off" l3  "")
    
20.         (command "-layer" "on" l4 "" )
    
21.         (setq l1 l4)(setq l2 l3)
    
22. )
    

<br /> ;;;<br /> ;;; 分别选定两个图层所在的实体,并将其中之一设为当前层<br /> ;;;<br /> (defun c:saveLayer (/ lname e1 e2)<br />    (setq e1 (car (entsel "\n选择图层一所在的实体 :")))<br />    (setq l1 (cdr (assoc 8 (entget e1))))<br />    (setq e2 (car (entsel "\n选择图层二所在的实体 :")))<br />    (setq l2 (cdr (assoc 8 (entget e2))))<br /> ;  (command "-layer" "s" l1 "" )      将这一行去掉<br /> (princ)<br /> )<br /> ;;;<br /> ;;; 图层切换开关<br /> ;;;<br /> (defun C:kol ()<br />         (setq l3 l1)(setq l4 l2)<br />         (command "-layer" "off" l3  "")<br />         (command "-layer" "on" l4 "" )<br />         (setq l1 l4)(setq l2 l3)<br /> )<br />