Метод меняет направление полилинии и направление обхода у полигонов.
Visual Basic:
Function ReverseSegment(SegNum As Long) As Long
SegNum - номер сегмента. Нумерация с 0.
Метод меняет направление заданного сегмента полилинии, а также направление обхода контура площадного объекта. В случае с полигонами, указывается номер контура. В случае успеха метод вернет значение 0, в противном случае -1.
Sub Element_ReverseSegment Set L = Zulu.ActiveMapDoc.Layers.Active 'в ID записываем ключ текущего объекта ID = L.CurrentID 'получаем элемент по ключу Set obj = L.Elements.GetElement(ID) 'меняем направление сегмента 0, в output записываем результат выполнения метода output = obj.ReverseSegment(0) 'выводим сообщение с результатом MsgBox(output) End Sub