Merge two color blocks (HATCH)

newer

论坛中写的代码主要是为了演示将要介绍的主要函数的使用方法，可能有更好或更直接的实现方式。

以下代码主要介绍AcGe几何库函数，并使用MPOLYGON对象对HATCH实体进行UNION。

1. (efun c:XDTB-HatchUnion (/ e1 e2)
   
2.   ;| Use the AcGe geometry library to determine whether it intersects|;
   
3.   (defun _hasInterPnts (e1 e2 / g1 g2 intv ret)
   
4.     (setq ret
   
5.            (and (setq g1 (xdrx-getpropertyvalue e1 "rootloopat" 0))
   
6.                 (setq g2 (xdrx-getpropertyvalue e2 "rootloopat" 0))
   
7.                 (setq intv (xdge::getpropertyvalue g1 "getinterval" g2))
   
8.            )
   
9.     )
   
10.     (xdrx-object-release g1 g2 intv)
    
11.     ret
    
12.   )
    
13.   (if (and
    
14.         (setq e1 (car (xdrx-entsel "\nSelect main color block<Exit>:" '((0 . "HATCH")))))
    
15.         (xdrx-pickset-redraw e1 3)
    
16.         (setq e2 (car (xdrx-entsel "\nSelect the color blocks to be merged<Exit>:" '((0 . "HATCH")))))
    
17.         (not (eq e1 e2))
    
18.       )
    
19.     (progn
    
20.       (xdrx-begin)
    
21.       (if (_hasInterPnts e1 e2)
    
22.         (progn
    
23.           (xdrx-hatch->mpolygon e1 t)
    
24.           (xdrx-hatch->mpolygon e2 t)
    
25. 
    
26.           (xdrx-mpolygon-union e1 e2)
    
27.           (xdrx-mpolygon->hatch e1)
    
28. 
    
29.           (xdrx-prompt "\nTwo color blocks were successfully merged.")
    
30.         )
    
31.       )
    
32.       (xdrx-end)
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    

(efun c:XDTB-HatchUnion (/ e1 e2)<br />   ;| Use the AcGe geometry library to determine whether it intersects|;<br />   (defun _hasInterPnts (e1 e2 / g1 g2 intv ret)<br />     (setq ret<br />            (and (setq g1 (xdrx-getpropertyvalue e1 "rootloopat" 0))<br />                 (setq g2 (xdrx-getpropertyvalue e2 "rootloopat" 0))<br />                 (setq intv (xdge::getpropertyvalue g1 "getinterval" g2))<br />            )<br />     )<br />     (xdrx-object-release g1 g2 intv)<br />     ret<br />   )<br />   (if (and<br />         (setq e1 (car (xdrx-entsel "\nSelect main color block<Exit>:" '((0 . "HATCH")))))<br />         (xdrx-pickset-redraw e1 3)<br />         (setq e2 (car (xdrx-entsel "\nSelect the color blocks to be merged<Exit>:" '((0 . "HATCH")))))<br />         (not (eq e1 e2))<br />       )<br />     (progn<br />       (xdrx-begin)<br />       (if (_hasInterPnts e1 e2)<br />         (progn<br />           (xdrx-hatch->mpolygon e1 t)<br />           (xdrx-hatch->mpolygon e2 t)<br /> <br />           (xdrx-mpolygon-union e1 e2)<br />           (xdrx-mpolygon->hatch e1)<br /> <br />           (xdrx-prompt "\nTwo color blocks were successfully merged.")<br />         )<br />       )<br />       (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )<br />

/db_自贡黄明儒_

N版，猛男   ！！