[试用]：新写了个“转换图层”工具...

XDSoft

该工具可以把一个层上的所有实体转移到另外一个层上，如果选输入层名，目标图层不存在新建。

2. 
   
3. [FONT=courier new]
   
4. (defun c:XDTB_LayerCopy (/ ss sLyr dLyr e)
   
5.   (if (xdrx_entsel "\n请选取要处理的一个层上的实体<退出>:")
   
6.     (progn
   
7.       (setq sLyr (xdrx_getentdxf 8))
   
8.       (xdrx_begin)
   
9.       (setq ss (ssget "x" (list (cons 8 sLyr))))
   
10.       (xdrx_Pickset_redraw ss)
    
11.       (if (xdrx_entsel "\n请选取目标图层上的实体<输入>:")
    
12.         (setq dLyr (xdrx_getentdxf 8))
    
13.         (progn
    
14.           (if (= "" (setq dLyr (getstring "\n请输入目标层名:")))
    
15.             (if (= 1 (xdrx_yesorno "\n是否使用当前层" 1))
    
16.               (setq dLyr (getvar "clayer"))
    
17.             (setq dLyr nil)
    
18.             )
    
19.           )
    
20.         )
    
21.       )
    
22.       (if dLyr
    
23.         (progn
    
24.           (xdrx_entity_setlayer ss dLyr)
    
25.           (prompt (strcat "\n已经成功的将图层"" sLyr
    
26.                           ""上的所有实体转换到图层"" dLyr """
    
27.                   )
    
28.           )
    
29.         )
    
30.       )
    
31.       (xdrx_Pickset_redraw ss t)
    
32.       (xdrx_end)
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:XDTB_LayerCopy (/ ss sLyr dLyr e)<br />   (if (xdrx_entsel "\n请选取要处理的一个层上的实体<退出>:")<br />     (progn<br />       (setq sLyr (xdrx_getentdxf 8))<br />       (xdrx_begin)<br />       (setq ss (ssget "x" (list (cons 8 sLyr))))<br />       (xdrx_Pickset_redraw ss)<br />       (if (xdrx_entsel "\n请选取目标图层上的实体<输入>:")<br />         (setq dLyr (xdrx_getentdxf 8))<br />         (progn<br />           (if (= "" (setq dLyr (getstring "\n请输入目标层名:")))<br />             (if (= 1 (xdrx_yesorno "\n是否使用当前层" 1))<br />               (setq dLyr (getvar "clayer"))<br />             (setq dLyr nil)<br />             )<br />           )<br />         )<br />       )<br />       (if dLyr<br />         (progn<br />           (xdrx_entity_setlayer ss dLyr)<br />           (prompt (strcat "\n已经成功的将图层"" sLyr<br />                           ""上的所有实体转换到图层"" dLyr """<br />                   )<br />           )<br />         )<br />       )<br />       (xdrx_Pickset_redraw ss t)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

zhuxiaoming

autocad07版的能安装上晓东工具箱吗?

lyzydmw

厉害，这个我们用得着

ljh19991220

不错的工具，下载下来了试试