Создание группы объектов на основании топологической связанности (VBScript)

Создание группы объектов на основании топологической связанности (VBScript)

Рассматривается пример выделения объектов на карте (формирование группы) на основании решения топологических задач.

Доступные действия по формированию групп:

1. Создание группы
2. Добавление объектов в группу
3. Исключение объектов из группы

Доступные действия по топологическому анализу:

1. Поиск связанных
   
2. Поиск связанных по направлению
3. Поиск связанных против направления
4. Поиск несвязанных объектов

Полученную функцию можно закрепить новой иконкой на панели инструментов или назначить для неё "горячую" клавишу

Sub FindDownstream ' Добавление в группу объектов, связанных по направлению Set L = Zulu.ActiveMapDoc.Layers.Active L.NetworkTools.ClearResults L.NetworkTools.ClearOverloadedStates L.NetworkTools.ClearFlags UZEL = L.CurrentID 'берем мигающий элемент L.NetworkTools.AddFlag UZEL 'ставим на него ФЛАГ Zulu.ActiveMapDoc.Refresh 1 'обновляем карту L.NetworkTools.FindDownstream 'находим все связанные элементы 'FindConnected - связанные с узлом 'FindDownstream - связанные по направлению 'FindDisconnected - несвязанные с узлом 'FindUpstream - связанные против направления L.Selection.ModifyByKeys 1, L.NetworkTools.Results 'eSelCreate = 1 Создает группу заново. 'eSelAppend = 2 Добавляет элементы к существующей группе. 'eSelExclude = 3 Исключает элементы из существующей группы L.NetworkTools.ClearResults L.NetworkTools.ClearOverloadedStates L.NetworkTools.ClearFlags 'стираем все флаги End Sub

Скачать пример (2.61 КБ)