[编程申请]：请帮写几个lisp

zhb2516

大家可否帮我写几个lisp
      1.仅保留一个或几个选定的对象图层，其他图层锁定；
    2.解锁所有图层。

YueFeng

下载ExpressTools吧。里面有这样的功能，当然这仅仅是其中一小部分。
在晓东CAD下载中就可以下载的。

梦断江南

晓东工具箱里面就有,还有更多的图层管理工具.试试吧

zhb2516

我用R14TCH3.0，我在小东工具箱里找过，没找到；ExpressTools不用于R14TCH3.0。请哪位朋友用LISP写下好吗？

nmsssb

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.spaug.org/Toolbars.Html#Layer">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

除了晓东工具箱，还可以换个口味

Victorwu

很早以前写的Lsp程序，怕放久了会发霉，还是拿出来晒晒太阳吧，各位大侠多指教。
加载后敲以下命令
setlay                     设定当前层
toclay                     改物体至当前层
off                          关闭指定层
only                        只保留指定层
on                           打开所有层
lock                        锁定指定层
key                         解锁所有层

你说的 1.仅保留一个或几个选定的对象图层，其他图层锁定； [/COLOR]
我想，稍作改动就能实现。我的程序仅供参考，其实最大的乐趣是自己通过摸索，使计算机成为自己可以轻松驾驭的工具，过程的乐趣大大高过结果。虽然，现在有很多现成工具可以实现类似功能，但当初刚刚调试通过的时候，那种成就感是难以言表的。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. (defun lock_lay        (/ ssla num i st st1 clay lay)
   
6.   (setq ssla (ssget))
   
7.   (setq num (sslength ssla))
   
8.   (setvar "CMDECHO" 0)
   
9.   (setq clay (getvar "CLAYER"))
   
10.   (setq i 0)
    
11.   (command ".layer")
    
12.   (repeat num
    
13.     (setq st (ssname ssla i))
    
14.     (setq st1 (entget st))
    
15.     (SETQ lay (CDR (ASSOC 8 st1)))
    
16.     (command "lock" lay)
    
17.     (if        (= lay clay)
    
18.       (progn
    
19.         ;(command "y" )       
    
20.         (princ "\n*Warning* Current layer is locked!\n")
    
21.       )
    
22.     )
    
23.     (setq i (+ i 1))
    
24.   )
    
25.   (command "")
    
26.   (princ)
    
27. )
    
28. (defun C:lock () (lock_lay))                                ;锁定指定层
    
29. (defun C:key () (command "-layer" "u" "*" "")                 ;解锁所有层
    
30.        (princ "\nUnlock all layers")(princ)
    
31. )
    
32. 
    
33. (princ
    
34.   "\nUtilities installed...             Written By WU Bufeng.\n"
    
35. )
    
36. (princ)
    
37. 
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> (defun lock_lay        (/ ssla num i st st1 clay lay)<br />   (setq ssla (ssget))<br />   (setq num (sslength ssla))<br />   (setvar "CMDECHO" 0)<br />   (setq clay (getvar "CLAYER"))<br />   (setq i 0)<br />   (command ".layer")<br />   (repeat num<br />     (setq st (ssname ssla i))<br />     (setq st1 (entget st))<br />     (SETQ lay (CDR (ASSOC 8 st1)))<br />     (command "lock" lay)<br />     (if        (= lay clay)<br />       (progn<br />         ;(command "y" )        <br />         (princ "\n*Warning* Current layer is locked!\n")<br />       )<br />     )<br />     (setq i (+ i 1))<br />   )<br />   (command "")<br />   (princ)<br /> )<br /> (defun C:lock () (lock_lay))                                ;锁定指定层<br /> (defun C:key () (command "-layer" "u" "*" "")                 ;解锁所有层<br />        (princ "\nUnlock all layers")(princ)<br /> )<br /> <br /> (princ<br />   "\nUtilities installed...             Written By WU Bufeng.\n"<br /> )<br /> (princ)<br /> <br />   [/FONT]<br />

zhb2516

谢谢各位，我会努力的！