如何找到不规则图形的中心！

nameld001

像左边的规则图形中心，大概是圆的位置可以用getboundingbox求得，但是右边的怎么求，请高手们给出答案！

ZZXXQQ

将图形做成面域，然后用MASSPROP就可得到形心坐标了。

cable2004

但我想保证原有图形的颜色图层等等信息不变的情况下，找到形心坐标。应该怎样？

Longfin

cable2004 发表于 2011-1-22 23:49
但我想保证原有图形的颜色图层等等信息不变的情况下，找到形心坐标。应该怎样？

复制图形对象，生成面域，计算形心，删除面域

nameld001

版主，好像不行吧，怎么求得，给个例子吧

Gu_xl

回复 nameld001 的帖子

1. (defun tt (poly / pl ms va reg cen)
   
2.   (setq pl (vlax-ename->vla-object poly)
   
3.           ms
   
4.           (vla-get-modelspace
   
5.             (vla-get-activedocument (vlax-get-acad-object))
   
6.           )
   
7.           va
   
8.           (vlax-make-safearray vlax-vbObject '(0 . 0))
   
9.   )
   
10.   (vlax-safearray-put-element va 0 pl)
    
11.   (setq axErr (VL-CATCH-ALL-APPLY 'vla-addregion (list ms va)))
    
12.   (if (VL-CATCH-ALL-ERROR-P axErr)
    
13.     nil
    
14.     (progn
    
15.       (setq reg        (car (vlax-safearray->list
    
16.                        (vlax-variant-value axErr);(vla-addregion ms va))
    
17.                      ) ;_ 结束vlax-safearray->list
    
18.                 ) ;_ 结束car
    
19.             cen
    
20.                 (vla-get-centroid reg)
    
21.       ) ;_ 结束setq
    
22.       (vla-delete reg)
    
23.       (vlax-safearray->list (vlax-variant-value cen))
    
24.     ) ;_ 结束progn
    
25.   ) ;_ 结束if
    
26. )
    

(defun tt (poly / pl ms va reg cen)<br />   (setq pl (vlax-ename->vla-object poly)<br />           ms<br />           (vla-get-modelspace<br />             (vla-get-activedocument (vlax-get-acad-object))<br />           )<br />           va<br />           (vlax-make-safearray vlax-vbObject '(0 . 0))<br />   )<br />   (vlax-safearray-put-element va 0 pl)<br />   (setq axErr (VL-CATCH-ALL-APPLY 'vla-addregion (list ms va)))<br />   (if (VL-CATCH-ALL-ERROR-P axErr)<br />     nil<br />     (progn<br />       (setq reg        (car (vlax-safearray->list<br />                        (vlax-variant-value axErr);(vla-addregion ms va))<br />                      ) ;_ 结束vlax-safearray->list<br />                 ) ;_ 结束car<br />             cen<br />                 (vla-get-centroid reg)<br />       ) ;_ 结束setq<br />       (vla-delete reg)<br />       (vlax-safearray->list (vlax-variant-value cen))<br />     ) ;_ 结束progn<br />   ) ;_ 结束if<br /> )<br />

nameld001

版主，还是不行啊，得到的点还是在图形外面

nameld001

如该图形。

zxjing

质心有的时候就是在外面的吧,我的绿地的质心就经常在外面

nameld001

我要的应该是形心，不管怎么样都要在图形里面