[试用]：新写“图层合并”命令，可以把两个层合并，源层定义删除

XDSoft

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.   命令：XDTB_LayerMerge
   
6.   功能：图层合并，合并到目标层后将删除原来图层
   
7. |;
   
8. (defun c:XDTB_LayerMerge (/ e lyr e1 lyrl)
   
9.   (xdrx_begin)
   
10.   (setq clayer (getvar "clayer"))
    
11.   (while (setq e (xdrx_entsel "\r拾取要合并图层上的实体<结束>:"))
    
12.     (setq lyr (xdrx_getentdxf 8)
    
13.           e1 (xdrx_object_get "layer" lyr)
    
14.           tf (xdrx_getentdxf 70)
    
15.     )
    
16.     (if (not (member lyr lyrl))
    
17.       (cond
    
18.         ((= lyr "0")
    
19.           (prompt "\n不能合并"0"层!\n")
    
20.         )
    
21.         ((= clayer lyr)
    
22.           (prompt "\n不能合并当前层!\n")
    
23.         )
    
24.         ((= "DEFPOINTS" (strcase lyr))
    
25.           (prompt "\n不能合并尺寸定义点图层!\n")
    
26.         )
    
27.         ((= 16 (logand 16 tf))
    
28.           (prompt "\n不能合并外部引用图层!\n")
    
29.         )
    
30.         (t
    
31.           (setq lyrl (cons lyr lyrl))
    
32.           (prompt (strcat "\n选中了图层："" (setq sLyrl
    
33.                                                    (xdrx_String_Join
    
34.                                                                      (reverse lyrl)
    
35.                                                                      ","
    
36.                                                    )
    
37.                                              )
    
38.                           ""\n"
    
39.                   )
    
40.           )
    
41.           (setq el (cons e1 el))
    
42.           (xdrx_Pickset_Redraw (ssget "x" (list (cons 8 lyr))))
    
43.         )
    
44.       )
    
45.     )
    
46.   )
    
47.   (if (and
    
48.         lyrl
    
49.         (setq sLyrl (xdrx_String_Join lyrl ",")
    
50.               ss (ssget "x" (list (cons 8 sLyrl)))
    
51.         )
    
52. 
    
53.         (setq e1 (xdrx_entsel "\n请拾取目标图层<退出>:"))
    
54.         (setq lyr (xdrx_getentdxf 8))
    
55.         (= 1 (xdrx_yesorno "\n合并图层将删除原图层定义，是否继续" 0))
    
56.       )
    
57.     (progn
    
58.       (xdrx_entity_setlayer ss lyr)
    
59.       (xdrx_PickSet_Redraw ss t)
    
60.       (foreach n lyrl
    
61.         (setq e1 (xdrx_object_get "layer" n))
    
62.         (if (not (xdrx_object_hasreferences e1))
    
63.           (xdrx_object_delete e1)
    
64.         )
    
65.       )
    
66.       (prompt (strcat "\n成功合并了图层: "" sLyrl "" 到目标层 "" lyr """))
    
67.     )
    
68.   )
    
69.   (xdrx_PickSet_Redraw ss t)
    
70. 
    
71.   (xdrx_end)
    
72.   (princ)
    
73. )
    
74. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />   命令：XDTB_LayerMerge<br />   功能：图层合并，合并到目标层后将删除原来图层<br /> |;<br /> (defun c:XDTB_LayerMerge (/ e lyr e1 lyrl)<br />   (xdrx_begin)<br />   (setq clayer (getvar "clayer"))<br />   (while (setq e (xdrx_entsel "\r拾取要合并图层上的实体<结束>:"))<br />     (setq lyr (xdrx_getentdxf 8)<br />           e1 (xdrx_object_get "layer" lyr)<br />           tf (xdrx_getentdxf 70)<br />     )<br />     (if (not (member lyr lyrl))<br />       (cond<br />         ((= lyr "0")<br />           (prompt "\n不能合并"0"层!\n")<br />         )<br />         ((= clayer lyr)<br />           (prompt "\n不能合并当前层!\n")<br />         )<br />         ((= "DEFPOINTS" (strcase lyr))<br />           (prompt "\n不能合并尺寸定义点图层!\n")<br />         )<br />         ((= 16 (logand 16 tf))<br />           (prompt "\n不能合并外部引用图层!\n")<br />         )<br />         (t<br />           (setq lyrl (cons lyr lyrl))<br />           (prompt (strcat "\n选中了图层："" (setq sLyrl<br />                                                    (xdrx_String_Join<br />                                                                      (reverse lyrl)<br />                                                                      ","<br />                                                    )<br />                                              )<br />                           ""\n"<br />                   )<br />           )<br />           (setq el (cons e1 el))<br />           (xdrx_Pickset_Redraw (ssget "x" (list (cons 8 lyr))))<br />         )<br />       )<br />     )<br />   )<br />   (if (and<br />         lyrl<br />         (setq sLyrl (xdrx_String_Join lyrl ",")<br />               ss (ssget "x" (list (cons 8 sLyrl)))<br />         )<br /> <br />         (setq e1 (xdrx_entsel "\n请拾取目标图层<退出>:"))<br />         (setq lyr (xdrx_getentdxf 8))<br />         (= 1 (xdrx_yesorno "\n合并图层将删除原图层定义，是否继续" 0))<br />       )<br />     (progn<br />       (xdrx_entity_setlayer ss lyr)<br />       (xdrx_PickSet_Redraw ss t)<br />       (foreach n lyrl<br />         (setq e1 (xdrx_object_get "layer" n))<br />         (if (not (xdrx_object_hasreferences e1))<br />           (xdrx_object_delete e1)<br />         )<br />       )<br />       (prompt (strcat "\n成功合并了图层: "" sLyrl "" 到目标层 "" lyr """))<br />     )<br />   )<br />   (xdrx_PickSet_Redraw ss t)<br /> <br />   (xdrx_end)<br />   (princ)<br /> )<br /> [/FONT]

zemehua

不错，是个好东西！

xiaoyuemin

很好，谢谢！！