Преобразует объекты группы в элементы сети.

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

Selection

Синтаксис:

Visual Basic:

Function ConvertToNetwork(iParams As ConvertToNetworkParams) As Long

Params - объект, содержащий параметры преобразования группы в сеть.

Пример:

'Преобразование в сеть выделенных объектов активного слоя активной карты
Sub ConvertToNetwork

'Создаем объект для задания параметров преобразования
Set Params = CreateObject("ZuluLib.ConvertToNetworkParams")

'Преобразуем простые линии
Params.ConvertLinePrimitives = True

'Преобразуем простые символы
Params.ConvertPointPrimitives = True

'Подтягиваем концы линий к узлам
Params.AttachEndsOfLineToNodes = True

'Ставим точки перелома на пересечениях линий
Params.InsertIntersectionPoints = True

'Разбиваем линии узлами в точках перелома
Params.SplitLinesByNodes = true

'Ставим точки перелома в местах примыкания линий
Params.InsertTouchPoints = True

'Задаем режим участков
Params.SetTypeModeForLine 6, 1

'Задаем режим для соединений участков
Params.SetTypeModeForJunction 2, 1

'Задаем режим для узлов на концевых участках
Params.SetTypeModeForDeadlock 3, 1

'Активный слой
Set L = Zulu.ActiveMapDoc.Layers.Active

'Преобразуем группу в сеть
L.Selection.ConvertToNetwork Params

End Sub