Поиск пути между двумя узлами сети (VBScript)
Sub SetWay1()
'Текущая активная карта
Set Doc = Zulu.ActiveMapDoc
'Проверяем что это карта
If TypeName(Doc) = "IMapDoc" Then
'Активный слой текущей карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Отчищаем все активные флаги
L.NetworkTools.ClearFlags
'Устанавливаем флаги на элементы ID-1 и ID-2
L.NetworkTools.AddFlag 1 L.NetworkTools.AddFlag 2
'Находим кратчайший путь
L.NetworkTools.FindWay
End If
End Sub
Последнее обновление — 16.01.2019 15:05:44