[求助]请问在ARX里面怎样判断POLYLINE的走向是顺时针还是逆时针

    /// 
    /// 判断轻型多义性的时钟走向
    /// Version : 2008.11.14
    /// 
    /// 轻型多义性
    /// 顺时针返回-1,逆时针返回1
    static public int Clockwise(Polyline pline)
    {
      Polyline pline1 = (Polyline)pline.Clone();
      double bulge0 = pline1.GetBulgeAt(0);
      double area0 = pline1.Area;
      if (bulge0 == 0.0)
      {
        pline1.SetBulgeAt(0, 0.5);
        double area1 = pline1.Area;
        if (area1 > area0)
          return 1;
        else
          return -1;
      }
      else
      {
        pline1.SetBulgeAt(0, 0);
        double area1 = pline1.Area;
        if (bulge0 > 0)
        {
          if (area1 > area0)
            return -1;
          else
            return 1;
        }
        else
        {
          if (area1 > area0)
            return 1;
          else
            return -1;
        }
      }
    }

     _
    Public Sub Test()
        Dim optEntity As New PromptEntityOptions("选择多段线:")
        With optEntity
            .SetRejectMessage("所选对象不是多段线")
            .AddAllowedClass(GetType(Polyline), False)
            .AllowNone = True
        End With
        Dim resEntity As PromptEntityResult = ed.GetEntity(optEntity)
        If resEntity.Status  PromptStatus.OK Then Return
        Dim JingDu As Double = 0.001 '浮点值的比较精度
        Using trans As Transaction = db.TransactionManager.StartTransaction
            Dim ent As Polyline = trans.GetObject(resEntity.ObjectId, OpenMode.ForRead)
            Dim P1 As Point2d = ent.GetPoint2dAt(0)
            Dim P2 As Point2d = ent.GetPoint2dAt(1)
            Dim Ji As Double = P2.X * P1.Y - P2.Y * P1.X
            Dim Message As String
            Select Case Ji
                Case Is  JingDu
                    Message = "第2点在第1点的顺时针方向"
                Case Else
                    Message = "此两点连线通过原点"
            End Select
            ed.WriteMessage(Message)
        End Using
    End Sub

 _
    Public Sub Test()
        Dim optEntity As New PromptEntityOptions("选择多段线:")
        With optEntity
            .SetRejectMessage("所选对象不是多段线")
            .AddAllowedClass(GetType(Polyline), False)
            .AllowNone = True
        End With
        Dim resEntity As PromptEntityResult = ed.GetEntity(optEntity)
        If resEntity.Status  PromptStatus.OK Then Return
        Dim JingDu As Double = 0.001 '浮点值的比较精度
        Using trans As Transaction = db.TransactionManager.StartTransaction
            Dim ent As Polyline = trans.GetObject(resEntity.ObjectId, OpenMode.ForRead)
            Dim ji As Vector3d = ent.GetPoint3dAt(1).GetAsVector.CrossProduct(ent.GetPoint3dAt(0).GetAsVector)
            Dim Message As String
            Select Case ji.Z
                Case Is  JingDu
                    Message = "第2点在第1点的顺时针方向"
                Case Else
                    Message = "此两点连线通过原点"
            End Select
            ed.WriteMessage(Message)
        End Using
    End Sub