【拓扑处理】布尔求并

Lispboy

封闭曲线、面域、填充、MPOLYGON之间求并
结果实体类型同第一个实体

1. (defun c:xdtb_union (/ e1 ss x)
   
2.   (if (and (setq e1 (car (xdrx_entsel
   
3.                            "\n选择第一个对象<退出>:"
   
4.                            '((-4 . "<or")
   
5.                              (0 . "region,hatch,mpolygon,circle,ellipse")
   
6.                              (-4 . "<and")
   
7.                              (0 . "*polyline")
   
8.                              (-4 . "&=")
   
9.                              (70 . 1)
   
10.                              (-4 . "and>")
    
11.                              (-4 . "or>")
    
12.                             )
    
13.                          )
    
14.                     )
    
15.            )
    
16.            (xdrx_initssget "\n选择求并的对象<退出>:")
    
17.            (setq ss (xdrx_ssget
    
18.                       '((-4 . "<or")
    
19.                         (0 . "region,hatch,mpolygon,circle,ellipse")
    
20.                         (-4 . "<and")
    
21.                         (0 . "*polyline")
    
22.                         (-4 . "&=")
    
23.                         (70 . 1)
    
24.                         (-4 . "and>")
    
25.                         (-4 . "or>")
    
26.                        )
    
27.                     )
    
28.            )
    
29.       )
    
30.     (progn (xdrx_begin)
    
31.            (mapcar '(lambda (x)
    
32.                       (if (not (equal x e1))
    
33.                         (xdrx_get_union e1 x)
    
34.                       )
    
35.                     )
    
36.                    (xdrx_pickset->ents ss)
    
37.            )
    
38.            (xdrx_prompt "\n布尔求并成功.")
    
39.            (xdrx_end)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )
    

(defun c:xdtb_union (/ e1 ss x)<br />   (if (and (setq e1 (car (xdrx_entsel<br />                            "\n选择第一个对象<退出>:"<br />                            '((-4 . "<or")<br />                              (0 . "region,hatch,mpolygon,circle,ellipse")<br />                              (-4 . "<and")<br />                              (0 . "*polyline")<br />                              (-4 . "&=")<br />                              (70 . 1)<br />                              (-4 . "and>")<br />                              (-4 . "or>")<br />                             )<br />                          )<br />                     )<br />            )<br />            (xdrx_initssget "\n选择求并的对象<退出>:")<br />            (setq ss (xdrx_ssget<br />                       '((-4 . "<or")<br />                         (0 . "region,hatch,mpolygon,circle,ellipse")<br />                         (-4 . "<and")<br />                         (0 . "*polyline")<br />                         (-4 . "&=")<br />                         (70 . 1)<br />                         (-4 . "and>")<br />                         (-4 . "or>")<br />                        )<br />                     )<br />            )<br />       )<br />     (progn (xdrx_begin)<br />            (mapcar '(lambda (x)<br />                       (if (not (equal x e1))<br />                         (xdrx_get_union e1 x)<br />                       )<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_prompt "\n布尔求并成功.")<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />