Полигон ро часовой стрелке построен, или нет?

Вот что в итог получилось у меня))
1.Clear_VRT чистит полигон от "лишних" точек
2.get_dir определяет направление линии
3.revers реверсирует линию
Замкнутый полигон или нет не важно ...
Public Sub Clear_VRT()
Dim AcObj As AcadEntity
Dim AcSelObj As AcadSelectionSet
Dim VRT() As Double
Dim Lpoint() As Double
Dim i As Integer, k As Integer, p As Integer
Dim FL_point As Boolean
'On Error Resume Next
Set AcSelObj = Select_Obj("lwpolyline", "?", "1")
For Each AcObj In AcSelObj
    p = 1
    VRT = AcObj.Coordinate(0)
    ReDim Preserve Lpoint(p)
    Lpoint(p - 1) = VRT(0)
    Lpoint(p) = VRT(1)
    p = p + 2
    For i = 1 To (UBound(AcObj.Coordinates) + 1) / 2 - 1
        FL_point = False
        VRT = AcObj.Coordinate(i)
        For k = 0 To UBound(Lpoint) Step 2
               If Round(VRT(0), 8) = Round(Lpoint(k), 8) And _
                  Round(VRT(1), 8) = Round(Lpoint(k + 1), 8) Then
                  FL_point = True
               End If
        Next
         If FL_point = False Then
                  ReDim Preserve Lpoint(p)
                  Lpoint(p - 1) = VRT(0)
                  Lpoint(p) = VRT(1)
                  p = p + 2
        End If
    Next
    Dim AcLWPol As AcadLWPolyline
    Set AcLWPol = ThisDrawing.ModelSpace.AddLightWeightPolyline(Lpoint)
    AcLWPol.Layer = AcObj.Layer
    AcLWPol.Linetype = AcObj.Linetype
    AcLWPol.Lineweight = AcObj.Lineweight
    AcLWPol.color = AcObj.color
    AcLWPol.Closed = AcObj.Closed
    If get_dir(AcLWPol) = True Then
        revers AcLWPol
    End If
    AcObj.Delete
Next
AcSelObj.Delete
End Sub
Private Function get_dir(ByVal pl As AcadLWPolyline) As Boolean
        Dim s As Double
        Dim i As Integer
            Dim VRR As Integer
            VRR = (UBound(pl.Coordinates) + 1) / 2 - 1
            For i = 0 To VRR
                If i = 0 Then
                s = s + (pl.Coordinate(i + 1)(0) - pl.Coordinate(VRR)(0)) * pl.Coordinate(i)(1)
                ElseIf i = VRR Then
                s = s + (pl.Coordinate(0)(0) - pl.Coordinate(i - 1)(0)) * pl.Coordinate(i)(1)
                Else
                s = s + (pl.Coordinate(i + 1)(0) - pl.Coordinate(i - 1)(0)) * pl.Coordinate(i)(1)
                End If
            Next
            s = s / 2
        If s > 0 Then
            get_dir = False ' ïî ÷àñîâîé
        ElseIf s < 0 Then
            get_dir = True ' &#239;&#240;&#238;&#242;&#232;&#226; &#247;&#224;&#241;&#238;&#226;&#238;&#233;
        End If
    End Function
Private Sub revers(PLobj As AcadLWPolyline)
Dim polig As Variant
Dim coord(1) As Double
Dim i As Integer, k As Integer
polig = PLobj.Coordinates
k = 0
For i = UBound(polig) To 0 Step -2
coord(0) = polig(i - 1)
coord(1) = polig(i)
PLobj.Coordinate(k) = coord
k = k + 1
Next
End Sub