ReverseSegment method (Element)

Метод меняет направление полилинии и направление обхода у полигонов.

Применяется к:

Element

Синтаксис:

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