Private Function GetAngle(ByRef APoint() As Double, ByRef BPoint() As Double) As Double ‘X \u2013 Y \u5750\u6807\u7cfb\u5185 \u2460 \u2461 \u4e24\u70b9\u8fde\u7ebf\u7684\u89d2\u5ea6
Dim XDiff, YDiff As Double
XDiff = BPoint(0) – APoint(0)
YDiff = BPoint(1) – APoint(1)
Dim dTemp As Double
‘\u2460\u2013\u2013\u2013\u2013\u2461
If XDiff > 0 And YDiff = 0 Then ‘X \u8f74\u53f3\u6bb5
GetAngle = 0 ‘\u5f27\u5ea6
End If
‘\u2013\u2013\u2013\u2013\u2461
‘\u2013\u2013\u2013\/
‘\u2013\u2013\/
‘\u2013\/
‘\u2460
If XDiff > 0 And YDiff > 0 Then ‘\u7b2c\u4e00\u8c61\u9650
dTemp = YDiff \/ XDiff
GetAngle = Atn(dTemp) ‘\u5f27\u5ea6
End If
‘\u2461
‘|
‘|
‘|
‘\u2460
If XDiff = 0 And YDiff > 0 Then ‘Y \u8f74\u4e0a\u6bb5
GetAngle = 0.5 * PI ‘\u5f27\u5ea6
End If
‘\u2461
‘\u2013\\
‘\u2013\u2013\\
‘\u2013\u2013\u2013\\
‘\u2013\u2013\u2013\u2013\u2460
If XDiff < 0 And YDiff > 0 Then ‘\u7b2c\u4e8c\u8c61\u9650
dTemp = Abs(XDiff) \/ YDiff
GetAngle = 0.5 * PI + Atn(dTemp) ‘\u5f27\u5ea6
End If
‘\u2461\u2013\u2013\u2013\u2013\u2460
If XDiff < 0 And YDiff = 0 Then ‘X \u8f74\u5de6\u6bb5 GetAngle = 1 * PI ‘\u5f27\u5ea6 End If ‘\u2013\u2013\u2013\u2013\u2460 ‘\u2013\u2013\u2013\/ ‘\u2013\u2013\/ ‘\u2013\/ ‘\u2461 If XDiff < 0 And YDiff < 0 Then ‘\u7b2c\u4e09\u8c61\u9650 dTemp = Abs(YDiff) \/ Abs(XDiff) GetAngle = 1 * PI + Atn(dTemp) ‘\u5f27\u5ea6 End If ‘\u2460 ‘| ‘| ‘| ‘\u2461 If XDiff = 0 And YDiff < 0 Then ‘Y \u8f74\u4e0b\u6bb5 GetAngle = 1.5 * PI ‘\u5f27\u5ea6 End If ‘\u2460 ‘\u2013\\ ‘\u2013\u2013\\ ‘\u2013\u2013\u2013\\ ‘\u2013\u2013\u2013\u2013\u2461 If XDiff > 0 And YDiff < 0 Then ‘\u7b2c\u56db\u8c61\u9650
dTemp = XDiff \/ Abs(YDiff)
GetAngle = 1.5 * PI + Atn(dTemp) ‘\u5f27\u5ea6
End If
‘\u2460\u00d7\u2461
If XDiff = 0 And YDiff = 0 Then ‘\u539f\u70b9
GetAngle = 0 ‘\u5f27\u5ea6
End If
End Function<\/p>\n\n\n\n
Private Function GetDistance(ByRef APoint() As Double, ByRef BPoint() As Double) As Double ‘\u6570\u7ec4\u505a\u53c2\u6570, \u4e24\u70b9\u7684\u77e2\u91cf\u8ddd\u79bb
‘\u83b7\u5f97\u4ece APoint \u81f3 BPoint \u7684\u6709\u65b9\u5411\u8ddd\u79bb\uff0c\u4ece\u897f\u5230\u4e1c\u7684\u6247\u5f62\u9762\u79ef\u5185\u4e3a\u6b63\uff08\u8fb9\u754c\u5b9a\u4e49\u5982\u4e0b\uff0c\u6b63\u5317\u5230\u6b63\u5357\u4e3a\u8d1f\uff0c\u6b63\u5357\u5230\u6b63\u5317\u4e3a\u6b63\uff09
GetDistance = (BPoint(0) – APoint(0)) ^ 2 + (BPoint(1) – APoint(1)) ^ 2 ‘\u56fe\u5f62\u5355\u4f4d
GetDistance = Sqr(GetDistance) ‘\u56fe\u5f62\u5355\u4f4d
Dim iSign As Integer
If GetAngle(APoint, BPoint) > 0.5 * PI And GetAngle(APoint, BPoint) <= 1.5 * PI Then
iSign = -1
Else
iSign = 1
End If
GetDistance = iSign * GetDistance
End Function<\/p>\n\n\n\n
Private Function GetSide(ByRef APoint() As Double, ByRef BPoint() As Double, ByRef CPoint() As Double) As String ‘\u6570\u7ec4\u505a\u53c2\u6570
‘\u5224\u65ad\u70b9 CPoint \u5728\u4ece\u70b9 APoint \u81f3\u70b9 BPoint \u5f62\u6210\u7684\u6709\u65b9\u5411\u76f4\u7ebf\u7684\u54ea\u4e00\u4fa7
Dim Vector01X As Double
Dim Vector01Y As Double
Vector01X = BPoint(0) – APoint(0)
Vector01Y = BPoint(1) – APoint(1)<\/p>\n\n\n\n
Dim Vector02X As Double
Dim Vector02Y As Double
Vector02X = CPoint(0) – APoint(0)
Vector02Y = CPoint(1) – APoint(1)
Select Case Vector01X * Vector02Y – Vector02X * Vector01Y
Case 0
GetSide = “ABOVE”
Case Is > 0
GetSide = “LEFT”
Case Is < 0
GetSide = “RIGHT”
End Select
End Function<\/p>\n\n\n\n
Private Function GetPosition(ByRef APoint() As Double, ByRef BPoint() As Double, ByRef CPoint() As Double) As String ‘\u6570\u7ec4\u505a\u53c2\u6570
‘\u5224\u65ad\u70b9 CPoint \u5728\u4ece\u70b9 APoint \u81f3\u70b9 BPoint \u5f62\u6210\u7684\u6709\u65b9\u5411\u76f4\u7ebf\u7684\u54ea\u4e00\u6bb5\uff0c\u4e09\u70b9\u4e0d\u5171\u7ebf \u8fd4\u56de -1
GetPosition = “-1”
If Not GetSide(APoint, BPoint, CPoint) = “ABOVE” Then Exit Function
If GetDistance(APoint, BPoint) >= 0 And GetDistance(APoint, CPoint) >= 0 Then
If GetDistance(APoint, BPoint) >= GetDistance(APoint, CPoint) Then
GetPosition = “INSIDE”
Else
GetPosition = “FRONT”
End If
End If
If GetDistance(APoint, BPoint) < 0 And GetDistance(APoint, CPoint) < 0 Then If GetDistance(APoint, BPoint) < GetDistance(APoint, CPoint) Then GetPosition = “INSIDE” Else GetPosition = “FRONT” End If End If If GetDistance(APoint, BPoint) >= 0 And GetDistance(APoint, CPoint) < 0 Then GetPosition = “REAR” End If If GetDistance(APoint, BPoint) < 0 And GetDistance(APoint, CPoint) >= 0 Then
GetPosition = “REAR”
End If
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"