Подготовка сетевых данных для дальнейшего анализа.
Visual Basic:
Function NetWorkDataPrepare(xy_flag As Boolean) As Boolean
xy_flag - зарезервирован, должен быть False.
Метод возвращает True, если данные сети подготовлены.
Разбору сети подготовка не требуется: и NetworkObjects, и IsInCircle дают одни и те же ответы до вызова и после него.
Visual Basic:
Sub Layer_NetworkDataPrepare 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Готовим данные сети и смотрим, что в ней есть S = "Подготовка сети: " & L.NetWorkDataPrepare(False) S = S & vbCrLf & "узлов: " & L.NetworkObjects(1).Count S = S & vbCrLf & "ребер: " & L.NetworkObjects(2).Count MsgBox S End SubPython:
import zulu def Macro_Layer_NetworkDataPrepare(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Готовим данные сети и смотрим, что в ней есть print("Подготовка сети:", L.NetWorkDataPrepare(False)) print("узлов:", L.NetworkObjects(1).Count) print("ребер:", L.NetworkObjects(2).Count)