[编程申请]：框选几个图层上的实体，确定后则锁定所有其他图层

lemonx

功能：框选几个图层上的实体，确定后则锁定所有其他图层。
晓东工具箱有这个功能，甚至还会将其他图层的颜色变为8（解锁后再复原）
可惜我的tssd与晓东冲突。
刚才在xyp的test系列中翻了好久也没找到
不知是否有人写过类似的东西？

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;;;当期版本：20051124版
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;框选几个图层上的实体，确定后则锁定所有其他图层
    
17. (defun c:test ()
    
18.   (CMDLA0)
    
19.   (princ "\n选择解锁层实体 : ")
    
20.   (setq        ss  (ssget)
    
21.         lst (xyp-get-layers)
    
22.         i   -1
    
23.   )
    
24.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
25.     (setq la1 (xyp-get-dxf 8 s1)
    
26.           lst (vl-remove la1 lst)
    
27.     )
    
28.     (command "layer" "u" la1 "")
    
29.   )
    
30.   (foreach la lst (command "layer" "lo" la ""))
    
31.   (CMDLA1)
    
32. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;;;当期版本：20051124版<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;框选几个图层上的实体，确定后则锁定所有其他图层<br /> (defun c:test ()<br />   (CMDLA0)<br />   (princ "\n选择解锁层实体 : ")<br />   (setq        ss  (ssget)<br />         lst (xyp-get-layers)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq la1 (xyp-get-dxf 8 s1)<br />           lst (vl-remove la1 lst)<br />     )<br />     (command "layer" "u" la1 "")<br />   )<br />   (foreach la lst (command "layer" "lo" la ""))<br />   (CMDLA1)<br /> )[/FONT]

lemonx

谢谢xyp！程序十分好用！
配合全部解锁的小lisp，会令很多操作十分方便
(defun c:UL ()
  (command "_.layer" "U" "*" "")
)

lizhongf

这个程序确实不错，斑竹能否改进一下？增加将其他图层的颜色变为8（解锁后再复原），如果能作到就更好用了！

eachy

试试[晓东工具箱]中的“图层孤立”和“孤锁恢复”

faith66

非常感谢斑竹的程序,如果能把程序再综合细化一下，最更完美了