API关于拓扑造区的简化代码实现

newer

以前论坛发布过“拓扑造区”的实现插件

                               
登录/注册后可看大图

下面是以前的代码实现，和下面的简化代码比，要啰嗦不少

1. ;|
   
2. MAPCIS 里面 拓扑造区实现
   
3. 命令：XDTB_ToPoMkRegion
   
4. |;
   
5. (defun c:XDTB_ToPoMkRegion (/ clr e entl ss x x1 x2)
   
6.   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
   
7.     (progn
   
8.       (XD::Begin)
   
9.       (setq ss (xdrx_entity_explode ss);;炸开曲线
   
10.             ss (xdrx_pickset_removedupLine ss) ; 消除重线
    
11.             ss (xdrx_curve_intersectbreak ss);;交点打断
    
12.             ss (xdrx_geom_searchRegions ss 0);;拓扑多边形
    
13.             entl (xdrx_pickset->ents ss);;选择集转实体表
    
14.       )
    
15.       (if (> (length entl) 0)
    
16.         (progn
    
17.           (setq entl (mapcar;;查找最大边界多边形
    
18.                        '(lambda (x)
    
19.                           (cons (car (xdrx_getarea x)) x)
    
20.                         )
    
21.                        entl
    
22.                      )
    
23.                 entl (vl-sort entl '(lambda (x1 x2)
    
24.                                       (> (car x1) (car x2))
    
25.                                     )
    
26.                      )
    
27.                 entl (mapcar
    
28.                        'cdr
    
29.                        entl
    
30.                      )
    
31.           )
    
32.           (xdrx_entity_delete (car entl));;删除最大边界多边形
    
33.           (foreach e (cdr entl);;遍历多边形表，生成随机颜色的HATCH
    
34.             (setq clr (xdrx_math_rand 255));;取得0-255之间的随机整数
    
35.             (xdrx_entity_setcolor (xdrx_hatch_make e) clr);;生成SOLID填充并设置颜色
    
36.           )
    
37.         )
    
38.       )
    
39.       (XD::End)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )
    

;|<br /> MAPCIS 里面 拓扑造区实现<br /> 命令：XDTB_ToPoMkRegion<br /> |; <br /> (defun c:XDTB_ToPoMkRegion (/ clr e entl ss x x1 x2)<br />   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (XD::Begin)<br />       (setq ss (xdrx_entity_explode ss);;炸开曲线<br />             ss (xdrx_pickset_removedupLine ss) ; 消除重线<br />             ss (xdrx_curve_intersectbreak ss);;交点打断<br />             ss (xdrx_geom_searchRegions ss 0);;拓扑多边形<br />             entl (xdrx_pickset->ents ss);;选择集转实体表<br />       )<br />       (if (> (length entl) 0)<br />         (progn<br />           (setq entl (mapcar;;查找最大边界多边形<br />                        '(lambda (x)<br />                           (cons (car (xdrx_getarea x)) x)<br />                         )<br />                        entl<br />                      )<br />                 entl (vl-sort entl '(lambda (x1 x2)<br />                                       (> (car x1) (car x2))<br />                                     )<br />                      )<br />                 entl (mapcar<br />                        'cdr<br />                        entl<br />                      )<br />           )<br />           (xdrx_entity_delete (car entl));;删除最大边界多边形<br />           (foreach e (cdr entl);;遍历多边形表，生成随机颜色的HATCH<br />             (setq clr (xdrx_math_rand 255));;取得0-255之间的随机整数<br />             (xdrx_entity_setcolor (xdrx_hatch_make e) clr);;生成SOLID填充并设置颜色<br />           )<br />         )<br />       )<br />       (XD::End)<br />     )<br />   )<br />   (princ)<br /> )<br />

随着API功能的增强，下面是简化的代码实现。
API可以设置系统变量RegionsRemoveMax，可以在生成拓扑多边形xdrx_geom_searchRegions的时候删除掉最外圈的边界。

1. ;|
   
2. MAPCIS 里面 拓扑造区实现
   
3. 命令：XDTB_ToPoMkRegion
   
4. |;
   
5. (defun c:XDTB_ToPoMkRegion (/ clr e entl ss x x1 x2)
   
6.   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
   
7.     (progn
   
8.       (xdrx_begin)
   
9.       (xdrx_setvar "RegionsRemoveMax" 1)
   
10.       (setq ss (xdrx_entity_explode ss);;炸开曲线
    
11.             ss (xdrx_curve_remove_duplicates ss t) ; 消除重线
    
12.             ss (xdrx_geom_searchRegions ss);;拓扑多边形
    
13.             entl (xdrx_pickset->ents ss);;选择集转实体表
    
14.       )
    
15.       (if (> (length entl) 0)
    
16.         (progn
    
17.           (foreach e (cdr entl);;遍历多边形表，生成随机颜色的HATCH
    
18.             (setq clr (xdrx_math_rand 255));;取得0-255之间的随机整数
    
19.             (xdrx_entity_setcolor (xdrx_hatch_make e) clr);;生成SOLID填充并设置颜色
    
20.           )
    
21.         )
    
22.       )
    
23.       (xdrx_setvar "RegionsRemoveMax" 0)
    
24.       (xdrx_end)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

;|<br /> MAPCIS 里面 拓扑造区实现<br /> 命令：XDTB_ToPoMkRegion<br /> |; <br /> (defun c:XDTB_ToPoMkRegion (/ clr e entl ss x x1 x2)<br />   (if (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setvar "RegionsRemoveMax" 1)<br />       (setq ss (xdrx_entity_explode ss);;炸开曲线<br />             ss (xdrx_curve_remove_duplicates ss t) ; 消除重线<br />             ss (xdrx_geom_searchRegions ss);;拓扑多边形<br />             entl (xdrx_pickset->ents ss);;选择集转实体表<br />       )<br />       (if (> (length entl) 0)<br />         (progn<br />           (foreach e (cdr entl);;遍历多边形表，生成随机颜色的HATCH<br />             (setq clr (xdrx_math_rand 255));;取得0-255之间的随机整数<br />             (xdrx_entity_setcolor (xdrx_hatch_make e) clr);;生成SOLID填充并设置颜色<br />           )<br />         )<br />       )<br />       (xdrx_setvar "RegionsRemoveMax" 0)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

杨帆

当全部是LINE时候会崩溃