[测试]：速求图层控制快捷键——隐藏与显示

活塞

制图过程中有时经常需要打开或关闭其中一个或几个图层，但每次都用鼠标点取图层控制工具栏，未免烦琐愚昧。请求知情者奉上详细的解决办法，以飨学生。
               学生感激不尽！！！
:4 速求图层控制快捷键——隐藏与显示[/SIZE]

XDSoft

最初由 活塞 发布
[B]制图过程中有时经常需要打开或关闭其中一个或几个图层，但每次都用鼠标点取图层控制工具栏，未免烦琐愚昧。请求知情者奉上详细的解决办法，以飨学生。
               学生感激不尽！！！
:4 速求图层控?.. [/B]

ACAD工具论坛，给大家提供过定义快捷键的外挂程序AUTOHOOK 2002，也贴过这个软件的FLASH教学。你利用它，把提供图层控制的LISP程序比如“晓东工具箱”里面的程序，定义成自己的快捷键。

自己先试试，然后来论坛和大家讨论。

秋枫

试用这个程序：
命令：
layer_off : 选择物体，关闭图层
layer_on: 打开用layer_off关闭的图层，最后关闭的最先打开，依次前推

为方便起见，可以在acad.pgp中加入：

1. 
   
2. [FONT=courier new]
   
3. off,  *layer_off
   
4. on,   *layer_on
   
5. [/FONT]

复制代码

这样，就可以用缩写命令：off和on

LISP程序下载见附件

2. 
   
3. [FONT=courier new]
   
4. ;; -------------------------------------------------
   
5. ;; OFF LAYER;
   
6. 
   
7. (defun c:layer_off( / temp name lname getlname)
   
8. 
   
9.   ; local functions;
   
10.   (defun getlname( pt / tmp ename result)
    
11.    (if pt
    
12.     (progn
    
13.      (command "_.move" "single" pt "0,0,0" "0,0,0")
    
14.      (setq tmp (ssget "P"))
    
15.      (setq ename (ssname tmp 0))
    
16.      (setq tmp (entget ename))
    
17.      (if  (= "INSERT" (cdr (assoc 0 tmp)))
    
18.           (progn
    
19.             (command "_.explode" ename ^c)
    
20.             (setq result (getlname pt))
    
21.             (command "_.u" "_.u")
    
22.             (if (= result "0") (setq result (cdr (assoc 8 tmp))))
    
23.           )
    
24.           (setq result (cdr (assoc 8 tmp)))           
    
25.      )
    
26.      result
    
27.     )
    
28.     nil
    
29.    ) ; end if
    
30. 
    
31.   ) ; end defun
    
32. 
    
33. 
    
34. 
    
35.   ; Main;
    
36. 
    
37.   (setvar "cmdecho" 0)   
    
38. 
    
39.   (setq lname (getlname (cadr (entsel"\n选择要关闭的层上的物体:"))))
    
40. 
    
41.   (while lname
    
42.      (if (= lname (getvar "clayer"))
    
43.          (command "_.layer" "off"  lname "y" "")
    
44.          (command "_.layer" "off" lname "")
    
45.      )
    
46.      (command ^C)
    
47.      (push_lname lname)
    
48.      
    
49.      (setq lname (getlname (cadr (entsel"\n选择要关闭的层上的物体:"))))
    
50. 
    
51.   )
    
52. 
    
53.   (setvar "cmdecho" 1)(princ)   
    
54. )
    
55. 
    
56. (defun c:layer_on( / lname)
    
57.   (setvar "cmdecho" 0)   
    
58.   (setq lname (pop_lname))
    
59.   (if lname
    
60.      (command "_.layer" "on" lname "" ^C)
    
61.      (princ "没有关闭层的历史记录.")
    
62.   )
    
63.   (setvar "cmdecho" 1)   
    
64. )
    
65. 
    
66. ;; STACK ROTINES;
    
67. 
    
68. (defun push_lname( w )
    
69.    (setq lname_stack (append (list w) lname_stack))
    
70. )
    
71. 
    
72. (defun pop_lname( / result )
    
73.    (setq result (car lname_stack))
    
74.    (setq lname_stack (cdr lname_stack))
    
75.    result
    
76. )
    
77. [/FONT]

<br /> [FONT=courier new]<br /> ;; -------------------------------------------------<br /> ;; OFF LAYER;<br /> <br /> (defun c:layer_off( / temp name lname getlname)<br /> <br />   ; local functions;<br />   (defun getlname( pt / tmp ename result)<br />    (if pt<br />     (progn<br />      (command "_.move" "single" pt "0,0,0" "0,0,0")<br />      (setq tmp (ssget "P"))<br />      (setq ename (ssname tmp 0)) <br />      (setq tmp (entget ename))<br />      (if  (= "INSERT" (cdr (assoc 0 tmp)))<br />           (progn<br />             (command "_.explode" ename ^c)<br />             (setq result (getlname pt))<br />             (command "_.u" "_.u")<br />             (if (= result "0") (setq result (cdr (assoc 8 tmp))))<br />           )<br />           (setq result (cdr (assoc 8 tmp)))           <br />      )<br />      result<br />     )<br />     nil<br />    ) ; end if<br /> <br />   ) ; end defun<br /> <br /> <br /> <br />   ; Main;<br /> <br />   (setvar "cmdecho" 0)   <br /> <br />   (setq lname (getlname (cadr (entsel"\n选择要关闭的层上的物体:"))))<br /> <br />   (while lname<br />      (if (= lname (getvar "clayer"))<br />          (command "_.layer" "off"  lname "y" "")<br />          (command "_.layer" "off" lname "")<br />      )<br />      (command ^C)<br />      (push_lname lname)<br />      <br />      (setq lname (getlname (cadr (entsel"\n选择要关闭的层上的物体:"))))<br /> <br />   )<br /> <br />   (setvar "cmdecho" 1)(princ)   <br /> )<br /> <br /> (defun c:layer_on( / lname)<br />   (setvar "cmdecho" 0)   <br />   (setq lname (pop_lname))<br />   (if lname<br />      (command "_.layer" "on" lname "" ^C)<br />      (princ "没有关闭层的历史记录.")<br />   )<br />   (setvar "cmdecho" 1)   <br /> )<br /> <br /> ;; STACK ROTINES;<br /> <br /> (defun push_lname( w )<br />    (setq lname_stack (append (list w) lname_stack))<br /> )<br /> <br /> (defun pop_lname( / result )<br />    (setq result (car lname_stack))<br />    (setq lname_stack (cdr lname_stack))<br />    result<br /> )<br /> [/FONT]

秋枫

上述代码中选择图块的时候，会使用图块内的、物体的图层而不是图块(insert)所在的图层（除非是0层）。
当然这个程序限于水平不够完善。用了比较笨的办法（居然用explode,呵呵，很早以前写的程序，当时不会用nentsel,很土的办法），速度比较慢而且会碰到explode失败的情况。不过，一般情况下可以满足要求了。

nfreebooter

理正有直接的按钮可以关闭图层的工具条，非常好用，建议一试

syb106

CAD里的bonus.mnu也可以用，
关于图层有十大工具，够了吧。

syb106

最性感的是：layiso,layoff,layon

活塞

够了，够用了。

Zhang830406

我是一只菜鸟，你这个代码起什么作用，又该怎么个用法尼？？


——我爱你——

27182818284

express的图层管理功能强大，可以分组关闭、打开、冻结、加锁、打印图层，活塞兄所说的只是express图层管理的一个小功能。

dyionng

楼上的兄弟！可以详细讲一下吗？？

XDSoft

晓东工具箱－图层管理工具教学演示

下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_layer.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_layer.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

“图层孤立”，速度不到0.0001秒。
点取的图层保留，其他图层“锁定”，“变灰”，可以作为参考比如捕捉，但是不能编辑。

下载地址：http://www.xdcad.net/tech/layerIso.swf

<embed src=http://www.xdcad.net/tech/layerIso.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

wzy306

很多方法.不知那种好用呢?小弟是个新手.请多多帮忙.

scar

还是比较烦呀，有没有超级简便的，不知2004有改进没有

WBX5187

lay_onoff.lsp