首页 > 代码库 > 计算DXFReader中多边形的面积代码示例

计算DXFReader中多边形的面积代码示例

2024-07-06 23:39:34   225人阅读

在DXFReader中， 一般的多边形的面积计算绝对值 

1.gif
其中K表是顶点的数目，2.gif它们的坐标，用于3.gif在求和4.gif和5.gif， 

所以用下面的代码就可以计算出一个封闭的多段线的区域： 

view source

print?

01Dim Vertex As Object
02Dim Entity As Object
03Dim k As Long
04Dim i As Long
05Dim Area As Single
06
07With DXFReader1
08
09 For Each Entity In .Entities
10  If Entity.EntityType = "POLYLINE" Then
11
12   Area = 0
13
14   For k = 1 To Entity.Vertexes.Count
15
16    If k = Entity.Vertexes.Count Then
17     i = 1
18    Else
19     i = k + 1
20    End If
21
22    Area = Area + _
23            Entity.Vertexes(k).x0 * Entity.Vertexes(i).y0 - _
24            Entity.Vertexes(i).x0 * Entity.Vertexes(k).y0
25
26   Next k
27
28   Area = Abs(Area) / 2
29
30  End If
31 Next Entity
32
33End With


联系
我们