[讨论]：如何获得封闭多边形的中心点坐标？

cityplan

如题！

efan2000

中心点是根据面积计算的中心点吗？

2. 
   
3.   [FONT=courier new]
   
4. Sub test()
   
5.     ' 定义保存面域边界的数组。
   
6.     Dim lwpLineObj(0) As AcadLWPolyline
   
7.    
   
8.    '  多段线，用作面域的边界。
   
9. 
   
10.     Set lwpLineObj(0) = ThisDrawing.ModelSpace(0)
    
11.    
    
12.     ' 创建面域
    
13.     Dim regionObj As Variant
    
14.     regionObj = ThisDrawing.ModelSpace.AddRegion(lwpLineObj)
    
15.    
    
16.     ' 返回多段线的面积中心坐标
    
17.     Dim Centroid As Variant
    
18.     Centroid = regionObj(0).Centroid
    
19.     MsgBox "多段线的面积中心坐标： " & Centroid(0) & ", " & Centroid(1), , "Centroid Example"
    
20.    
    
21.     regionObj(0).Delete
    
22. End Sub
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub test()<br />     ' 定义保存面域边界的数组。<br />     Dim lwpLineObj(0) As AcadLWPolyline<br />     <br />    '  多段线，用作面域的边界。<br /> <br />     Set lwpLineObj(0) = ThisDrawing.ModelSpace(0)<br />     <br />     ' 创建面域<br />     Dim regionObj As Variant<br />     regionObj = ThisDrawing.ModelSpace.AddRegion(lwpLineObj)<br />     <br />     ' 返回多段线的面积中心坐标<br />     Dim Centroid As Variant<br />     Centroid = regionObj(0).Centroid<br />     MsgBox "多段线的面积中心坐标： " & Centroid(0) & ", " & Centroid(1), , "Centroid Example"<br />     <br />     regionObj(0).Delete<br /> End Sub<br />   [/FONT]<br />

cityplan

好象记得有一个根据坐标点计算封闭多边形面积的公式，还有谁记得吗？