（XD::Get:Union）通用布尔求并，支持曲线,region,hatch,mpolygon任意组合

newer

1. (defun xd::get:union (ents mode / a b c ents1 x)
   
2.   (if (= (type ents) 'PICKSET)
   
3.     (setq ents (xdrx-pickset->ents ents))
   
4.   )
   
5.   (setq ents1 ents)
   
6.   (while (cdr ents)
   
7.     (setq a (car ents)
   
8.           b (cdr ents)
   
9.     )
   
10.     (setq ents (cdr ents))
    
11.     (while (car b)
    
12.       (setq c (car b))
    
13.       (if (xdrx-get-union a c)
    
14.         (progn
    
15.           (setq ents (cons a ents)
    
16.                 b (vl-remove c b)
    
17.                 ents (vl-remove c ents)
    
18.           )
    
19.         )
    
20.       )
    
21.       (setq b (cdr b))
    
22.     )
    
23.   )
    
24.   (cond
    
25.     ((xdrx-object-iskindof a "region,hatch,mpolygon")
    
26.       (if mode
    
27.         (list a)
    
28.         (xdrx-getpropertyvalue a "detach")
    
29.       )
    
30.     )
    
31.     ((xdrx-object-iskindof a "curve")
    
32.       (vl-remove nil (mapcar
    
33.                        '(lambda (x)
    
34.                           (if (entget x)
    
35.                             x
    
36.                           )
    
37.                         )
    
38.                        ents1
    
39.                      )
    
40.       )
    
41.     )
    
42.   )
    
43. )
    

(defun xd::get:union (ents mode / a b c ents1 x)<br />   (if (= (type ents) 'PICKSET)<br />     (setq ents (xdrx-pickset->ents ents))<br />   )<br />   (setq ents1 ents)<br />   (while (cdr ents)<br />     (setq a (car ents)<br />           b (cdr ents)<br />     )<br />     (setq ents (cdr ents))<br />     (while (car b)<br />       (setq c (car b))<br />       (if (xdrx-get-union a c)<br />         (progn<br />           (setq ents (cons a ents)<br />                 b (vl-remove c b)<br />                 ents (vl-remove c ents)<br />           )<br />         )<br />       )<br />       (setq b (cdr b))<br />     )<br />   )<br />   (cond<br />     ((xdrx-object-iskindof a "region,hatch,mpolygon")<br />       (if mode<br />         (list a)<br />         (xdrx-getpropertyvalue a "detach")<br />       )<br />     )<br />     ((xdrx-object-iskindof a "curve")<br />       (vl-remove nil (mapcar<br />                        '(lambda (x)<br />                           (if (entget x)<br />                             x<br />                           )<br />                         )<br />                        ents1<br />                      )<br />       )<br />     )<br />   )<br /> )<br />