Определение количества входов и выходов в узел(VBScript)

Определение количества входов и выходов в узел(VBScript)

Макросом получаем  все входящие и выходящие в узел ребра.

Sub GetCountIncident

'Объект для вывода в окно сообщений
Set Out = Zulu.OpenOutputChannel("Сообщения")

'Очищаем окно сообщений
Out.Clear

'Получаем активный слой текущей карты
Set L = Zulu.ActiveMapDoc.Layers.Active

'Получаем список объектов для проверки, интересую объекты с типом 6
Set uzel = L.ElementKeys.SelectByType(6,0)

'в цикле, проходим по всем объектам для проверки
  For i=1 to UZEL.Count

  'Определяем количество входов и выходов
  InzIN = L.GetIncidentElements (uzel.Item(i), 1).Count
  InzOUT = L.GetIncidentElements (uzel.Item(i), 2).Count

  'выводим количество входов и выходов в окно сообщений
  Out.Put "ID="& uzel.Item(i) & chr(10) & " Входов = " & InzIN & chr(10) &" Выходов = "& InzOUT & chr(10)

next

MsgBox "готово"

End sub

Онлайн справка - Метод GetIncidentElements

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