NX二次开发之判断垂直边的方法(Snap)

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