Напраление полилинии

У объектов 3DPoly, Leader, LightweightPolyline, Point, PolyfaceMesh, PolygonMesh, Polyline, Solid, Trace есть свойство Coordinate(index). Оно возвращает 2-х или 3-х элементный массив типа Double с координатами вершины, определяемой index. Сравнивая вершины, допустим, 0-ю и 1-ю и можно определить "направление".

Можно попробовать такой способ:
Определить "центральную" точку (приблизительно), от нее определить углы на каждую или некоторые вершины и на основании разницы углов определить направление.

Забыл сказать.
n - количество вершин полилинии

Интимный вопрос: Зачем нужно знать направление отрисовки контура если он состоит из отрезков?
Если в контуре есть дуги, то это понятно, - возникает неопределенность положения дугового участка, в случае неизвестности направления обхода. Но как быть с дугами - я написал ранее.

Я о чем хочу сказать. Любые задачи, которые встают перед человеком програмирующем на VBA требуют знания объектов, их свойст и действий, которые с ним можно производить. Поэтому всем маленкий совет - изучайте объектную модель AutoCAD. И намного станет легче жить. Изучайте папку Sample, пользуйтесь клавишей F1 и почаще посещайте ресурс на куличках посвященный акаду. И bender, зная свойства и методы полилиний сразу предложил решение. Изучайте свойства и методы объектов!!! Этот совет практически универсален )) Правда есть некоторые вещи, которые в VBA мне непонятны. Мне кровь из носа надо было взорвать солид программно. Не получилось. Не поддерживает вбашная модель для солидов таких вещей - обидно. Вот так.

Я о чем хочу сказать.
Площадь замкнутой фигуры из прямолинейных сегментов можно вычислить по формуле
S=Summa i=1...n { 1/2*(Y[i]+Y[i+1])*(X[i+1]-X[i]) },
где при i=n, конечно, i+1=1.
При этом площадь "правозавернутой" фигуры по этой формуле - положительное число, а "левозавернутой" - отрицательное. Дуговые сегменты в данном случае можно заменить линейными - мы ж не площадь в самом деле вычисляем.

> Сергей

> Олег
На самом деле я действительно ничего конкретного не предложил. Все что я говорил достаточно банально и может служить лишь отправной точкой. Самое интересное начинается тогда, когда получены координаты 0-ой, первой и последней вершин. Ну получили, и что? Что с ними делать, чтобы определить"направление" полилинии?
Как всегда решений, наверное, не одно. Если угодно могу предложить такое (наверное на самое правильное и уж  несомненно не самое красивое, т. к. требует дополнительных построений).
1. Строим линию из "первой" вершины в "последнюю" и точку с координатами 0-й вершины.
2. Определяем угол, образуемый линией (angle).
3. Поворачиваем линию и точку относительно "первой" вершины на минус angle, ориентируя тем самым линию паралельно оси X.
4. Если точка окажется "выше" линии - то исходная полилиния нарисована против часовой стрелки, если "ниже", то по часовой.
5. Убираем мусор.
Перед всем этим нужно определить не находится ли 0-я вершина "внутри" контура. Если находится то п.4 - все наоборот.
А вообще-то решение VH (2004-01-09 17:08:37) кажется более простое и правильное.

Объектная модель одна и таже для всех программ (VBA, Delfi).

> bender
Я знаю что одна и та-же. Просто не поддерживает. А было-бы здорово, если-бы солиды моджно было взрывать и получать массив из регионов скажем.

контур должен быть "правильным", т.е. последняя точка не должна совпадать с первой

А если нет? А если вершины n и n+1 совпадают? Алгоритм будет правильно работать?
Ниже приблизительная реализация алгоритма VH (2004-01-09 17:08:37)

Public Sub testGetEntVector1()
Dim retObj As AcadEntity
Dim x, y As Variant
Dim control As Boolean
Dim summa As Double
Dim i As Long, upperBound As Long
On Error GoTo Error_Control
Do While control = False
    ThisDrawing.Utility.GetEntity retObj, x, "Выберите объект: "
    Select Case retObj.ObjectName
        Case "AcDb2dPolyline"
            upperBound = 3
        Case "AcDbPolyline"
            upperBound = 2
        Case Else
            upperBound = 0
    End Select
    If upperBound = 0 Then
        control = True
        Exit Do
    End If
    summa = 0
    For i = 0 To (UBound(retObj.Coordinates) + 1) / upperBound - 1
        If i + 1 <= (UBound(retObj.Coordinates) + 1) / upperBound - 1 Then
            x = retObj.Coordinate(i)
            y = retObj.Coordinate(i + 1)
            summa = summa + ((x(1) + y(1)) * (y(0) - x(0))) / 2
        Else
            x = retObj.Coordinate(i)
            y = retObj.Coordinate(0)
            summa = summa + ((x(1) + y(1)) * (y(0) - x(0))) / 2
        End If
    Next
    Select Case summa
        Case Is < 0
            MsgBox "Против часовой стрелки."
        Case Is > 0
            MsgBox "По часовой стрелке."
        Case Else
            MsgBox summa
    End Select
    Select Case MsgBox("Продолжить программу?", vbYesNo)
        Case 6
            control = False
        Case Else
            control = True
    End Select
Loop
GoTo Exit_Here
Error_Control:
Select Case Err.Number
    Case -2147352567
        x = ThisDrawing.GetVariable("LASTPROMPT")
        If InStr(1, x, "*Cancel*") <> 0 Then
            Err.Clear
            control = True
        Else
            Err.Clear
            Resume
        End If
    Case -2147467259
        Err.Clear
        Resume
    Case Else
        MsgBox Err.Description & " " & Err.Number
        Err.Clear
        Resume Exit_Here
End Select
Exit_Here:
End Sub