Метод преобразует полигон в линейный объект, заменяя все контуры на линии.

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

Element

Синтаксис:

Visual Basic:

Function ConvertToPolyline(Style As ElemStyle, ElemType As Long, ElemMode As Long) As Long

Style - объект, описывающий стиль линии.

ElemType - номер типа линии.

ElemMode - номер режима линии.

Описание:

В случае успеха, метод вернет 0 и поменяет все контуры площадного объекта в линии, которые будут является единый объектом, в противном случае, метод вернет -1. Можно преобразовывать как в примитив, так и в определенный тип с режимом. При преобразовании в примитив, ElemType и ElemMode должны быть равны значению -1 (как в первом примере).

Пример 1:

'преобразуем в приметив
Sub Element_ConvertToPolyline
Set L = Zulu.ActiveMapDoc.Layers.Active
ID = L.CurrentID
Set obj = L.Elements.GetElement(ID)
'создаем объект Стиля объекта 
Set st = CreateObject ("ZuluLib.ElemStyle")	
'задаем красный цвет
st.LineColor = 255
'превращает полигон в линии примитив с заданным стилем
output = obj.ConvertToPolyline(st, -1, -1)	
'выводим результат операции
MsgBox(output)
End Sub 
         

Пример 2:

'преобразаем в определенный тип и режим
Sub Element_ConvertToPolyline
Set L = Zulu.ActiveMapDoc.Layers.Active
ID = L.CurrentID
Set obj = L.Elements.GetElement(ID)
'превращает полигон в линии типа 3 и режимом 1
output = obj.ConvertToPolyline(Nothing, 3, 1)	
'выводим результат операции
MsgBox(output)
End Sub