分解多个外部环的填充实体到单独的填充

newer

通过XDRXAPI的MPOLYGON对象的detach函数，分解填充

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx_entsel "\n选取填充<退出>" '((0 . "HATCH")))))
   
3.     (progn
   
4.       (if (xdrx_hatch_hasmultiexternalloop e)
   
5.         (progn
   
6.           (setq ss (xdrx_hatch->mpolygon e t))
   
7.           (setq ss (xdrx_mpolygon_detach e))
   
8.           (mapcar '(lambda (x)
   
9.                      (xdrx_mpolygon->hatch x)
   
10.                    )
    
11.                   (xdrx_pickset->ents ss)
    
12.           )
    
13.         )
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:tt ()<br />   (if (setq e (car (xdrx_entsel "\n选取填充<退出>" '((0 . "HATCH")))))<br />     (progn<br />       (if (xdrx_hatch_hasmultiexternalloop e)<br />         (progn<br />           (setq ss (xdrx_hatch->mpolygon e t))<br />           (setq ss (xdrx_mpolygon_detach e))<br />           (mapcar '(lambda (x)<br />                      (xdrx_mpolygon->hatch x)<br />                    )<br />                   (xdrx_pickset->ents ss)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />