计算DXFReader中多边形的面积

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

其中K表是顶点的数目，它们的坐标，用于在求和和， 

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

 

01	Dim Vertex As Object

02	Dim Entity As Object

03	Dim k As Long

04	Dim i As Long

05	Dim Area As Single

06

07	With 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

33

End With

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/29674755/viewspace-1175541/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/29674755/viewspace-1175541/