''' <summary>
''' 判断三个点是否共线
''' </summary>
''' <param name="firstPoint">第一个点</param>
''' <param name="secondPoint">第二个点</param>
''' <param name="thirdPoint">第三个点</param>
''' <returns></returns>
<System.Runtime.CompilerServices.Extension> _
Public Shared Function IsOnOneLine(firstPoint As Point3d, secondPoint As Point3d, thirdPoint As Point3d) As Boolean
Dim v21 As Vector3d = secondPoint.GetVectorTo(firstPoint)
Dim v23 As Vector3d = secondPoint.GetVectorTo(thirdPoint)
If v21.GetAngleTo(v23) = 0 OrElse v21.GetAngleTo(v23) = Math.PI Then
Return True
Else
Return False
End If
End Function
"ShowWindow”的调用导致堆栈不对称。