Public Shared Function IsVertical(lineEdge As Snap.NX.Edge.Line) As Boolean
Dim vert = False
Dim epsilon = 0.01
Dim lineVector = lineEdge.EndPoint - lineEdge.StartPoint '通过起点和终点得到一个矢量
Dim angle = Vector.Angle(lineVector, Vector.AxisZ) '得到前一个矢量与Z轴的角度关系
If System.Math.Abs(angle) < epsilon Then vert = True
If System.Math.Abs(angle - 180) < epsilon Then vert = True
Return vert
End Function
Dim vert = False
Dim epsilon = 0.01
Dim lineVector = lineEdge.EndPoint - lineEdge.StartPoint '通过起点和终点得到一个矢量
Dim angle = Vector.Angle(lineVector, Vector.AxisZ) '得到前一个矢量与Z轴的角度关系
If System.Math.Abs(angle) < epsilon Then vert = True
If System.Math.Abs(angle - 180) < epsilon Then vert = True
Return vert
End Function