有分求助！！！！！！！已知多边形顶点坐标，怎样才能判断出坐标(x,y)是否在多边形内

xiapian89

以下坐标a,b,c,d,e依次连接成为一个五边形
a=(x1,y1)
b=(x2,y2)
c=(x3,y3)
d=(x4,y4)
e=(x5,y5)

求助，如何任意坐标(x,y)是否在五边形范围内

真心求助，有分分啊~~~

jsxjd

该点的上下左右是否存在多边形的边

xiapian89

jsxjd 发表于 2014-5-29 18:46
该点的上下左右是否存在多边形的边

存在，只要在这个五边形的投影上，就算

xiapian89

jsxjd 发表于 2014-5-29 18:46
该点的上下左右是否存在多边形的边

存在，只要在这个五边形的投影上，就算

xiapian89

额，有没有老师帮帮我~

lolmuta

xiapian89 发表于 2014-5-30 11:07
额，有没有老师帮帮我~

	shape point			Point			Result
	X	Y		X	Y		in Shape
	1	9		3	4
	2	2
	4	4

vba code:

1. Private Const PI As Double = 3.1415926
   
2. Private Type myPoint
   
3.     x As Double
   
4.     y As Double
   
5. End Type
   
6. 
   
7. Private Sub ReadPoints(ByRef p() As myPoint, ByRef detectP As myPoint)
   
8.     Dim Arr
   
9.    
   
10.     Arr = Me.Range(Me.Range("B4"), Me.Range("C65536").End(xlUp))
    
11.    
    
12.     ReDim p(LBound(Arr) To UBound(Arr))
    
13.     For i = LBound(Arr) To UBound(Arr)
    
14.    
    
15.         p(i).x = Arr(i, 1)
    
16.         p(i).y = Arr(i, 2)
    
17.    
    
18.     Next
    
19.     detectP.x = Me.Range("E4")
    
20.     detectP.y = Me.Range("F4")
    
21. End Sub
    
22. Private Sub ExportResult(isInShape As Boolean)
    
23.    
    
24.     If isInShape Then
    
25.         Me.Range("H3") = "in Shape"
    
26.     Else
    
27.         Me.Range("H3") = "not in Shape"
    
28.     End If
    
29. 
    
30. 
    
31. 
    
32. End Sub
    
33. 
    
34. 
    
35. 
    
36. Public Sub Main()
    
37. 
    
38.    
    
39. 
    
40.     Dim p() As myPoint
    
41.     Dim dp As myPoint
    
42.    
    
43.     ReadPoints p, dp
    
44.    
    
45.     Dim An() As Double
    
46.     ReDim An(LBound(p) To UBound(p))
    
47.    
    
48.     Dim DeltaX As Double
    
49.     Dim DeltaY As Double
    
50.    
    
51.     For i = LBound(p) To UBound(p)
    
52.         DeltaX = p(i).x - dp.x
    
53.         DeltaY = p(i).y - dp.y
    
54.         An(i) = getAngle(DeltaX, DeltaY)
    
55.     Next
    
56.    
    
57.    
    
58.    
    
59.     OrderAngle An
    
60.     Dim isInShape As Boolean
    
61.     isInShape = True
    
62.     Dim mySum As Double
    
63.     Dim Diff As Double
    
64.     For i = LBound(An) To UBound(An) - 1
    
65.         
    
66.         Diff = An(i + 1) - An(i)
    
67.         Debug.Print Diff
    
68.         mySum = mySum + Diff
    
69.         
    
70.         If Diff > 180 Then
    
71.         
    
72.             isInShape = False
    
73.             Exit For
    
74.         Else
    
75.             
    
76.         End If
    
77.         
    
78.     Next
    
79.    
    
80.     If (360 - mySum) > 180 Then
    
81.         isInShape = False
    
82.     End If
    
83.    
    
84.     ExportResult isInShape
    
85.    
    
86.    
    
87. End Sub
    
88. 'get 0~360
    
89. Private Function getAngle(DeltaX, DeltaY) As Double
    
90.       
    
91.    
    
92.         
    
93.     If DeltaX = 0 Then
    
94.         If DeltaY > 0 Then
    
95.             getAngle = 90
    
96.         ElseIf DeltaY < 0 Then
    
97.             getAngle = 270
    
98.         Else
    
99.             getAngle = -1
    
100.             Debug.Print "meanless!"
     
101.         End If
     
102.         Exit Function
     
103.     End If
     
104.     Dim Result As Double
     
105.     Result = ((Atn(DeltaY / DeltaX)) / (2 * PI)) * 360
     
106.     '1
     
107.     If DeltaX > 0 And DeltaY >= 0 Then
     
108.         getAngle = Result
     
109.         Exit Function
     
110.     End If
     
111.     '2
     
112.     If DeltaX < 0 And DeltaY >= 0 Then
     
113.         getAngle = 180 + Result
     
114.         Exit Function
     
115.     End If
     
116.     '3
     
117.     If DeltaX < 0 And DeltaY <= 0 Then
     
118.         getAngle = 180 + Result
     
119.         Exit Function
     
120.     End If
     
121.     '4
     
122.     If DeltaX < 0 And DeltaY <= 0 Then
     
123.         getAngle = 360 + Result
     
124.         Exit Function
     
125.     End If
     
126. 
     
127. 
     
128. End Function
     
129. Private Sub OrderAngle(Arr() As Double)
     
130. 
     
131.     For i = LBound(Arr) To UBound(Arr) - 1
     
132.         For j = i To UBound(Arr)
     
133.             If Arr(i) > Arr(j) Then
     
134.                 temp = Arr(i)
     
135.                 Arr(i) = Arr(j)
     
136.                 Arr(j) = temp
     
137.             End If
     
138.         Next
     
139.     Next
     
140.    
     
141. 
     
142. End Sub
     
143. 
     
144. Private Sub CommandButton1_Click()
     
145.     Main
     
146. End Sub
     

复制代码

在公司不能上传附件，只能用这样给。

也不确定对不对，
原理就是算出要侦测的点的到5角型点的角度，然后将角度排序，然后排序后的角度之间若有相差到180度以上，就判定是在shape外

xiapian89

lolmuta 发表于 2014-5-30 15:34
[/td] [/tr]

哇塞，太崇拜你了

treenewbee

使用面积应该更方便一些吧

xiapian89

treenewbee 发表于 2014-6-2 16:29
使用面积应该更方便一些吧

真的能更方便吗？怎么弄啊？

lolmuta

我想他的意思是
若 五点的面积=要量的点到(五点按规则取二点)的三角形面积和
就表示在shape内。

这方法，我觉得难的地方是要如何判断要取那二点。
如果也是按角度来判断，那就跟我的相似了。