Определение начала и конца участка (VBScript)

Определение начала и конца участка (VBScript)

Макросом получаем начало и конец участка

Sub Key_Begin_End 
  
    'Объект для вывода в окно сообщений 
    Set Out = Zulu.OpenOutputChannel("Сообщения") 
  
    'Очищаем окно сообщений 
    Out.Clear 
  
    'Получаем активный слой текущей карты
    Set L = Zulu.ActiveMapDoc.Layers.Active 

    'Получаем список участков, объекты с типом 2 
    Set keys = L.ElementKeys.SelectByType(2, 0) 
    Set NetObj = L.NetworkObjects(3)
    
    'в цикле, проходим по всем объектам для проверки 
    For i = 1 To keys.Count 
    
        'Получаем id участка 
        key_uch = keys.Item(i)

        'Получаем index_uch участка в коллекции объектов сети 
        index_uch = NetObj.GetIndexByKey(key_uch)

        'Получаем id узла начала и конца участка из коллекции объектов сети 
        key_begin = NetObj.KeyBegin(index_uch)
        key_end = NetObj.KeyEnd(index_uch)

        'выводим ID участка и его начало и конец в окно сообщений 
        Out.Put "Участок ID=" & key_uch & Chr(10) & "   Начало ID=" & key_begin & Chr(10) &  "   Конец ID=" & key_end & Chr(10) 
        
    Next
    
End Sub


Онлайн справка - NetworkObjects object

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