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

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

Selection

Синтаксис:

Visual Basic:

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

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

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

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

Описание:

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

Пример 1:

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

Пример 2:

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