RUS  ENG 

Получение системного кода участка сети, от которого подключен потребитель

Поиск  Правила  Войти
Страницы: 1
RSS
Получение системного кода участка сети, от которого подключен потребитель
 
#1
24.06.2024 11:57:25
Добрый день. Версия 10.0.0.8928u.x64. Необходимо сопоставить каждого потребителя в слое тепловой сети с участком тепловой сети от которого этот потребитель подключен. Хотелось бы на выходе получать выгрузку в формате excel с двумя столбцами: системный код потребителя и системный код участка тепловой сети. Помогите, пожалуйста, с написанием макроса или подскажите с помощью каких инструментов возможно автоматизированное решение по данному вопросу? Заранее спасибо.
 
 
 
#2
25.06.2024 13:30:21
Цитата
написал:
Добрый день. Версия 10.0.0.8928u.x64. Необходимо сопоставить каждого потребителя в слое тепловой сети с участком тепловой сети от которого этот потребитель подключен. Хотелось бы на выходе получать выгрузку в формате excel с двумя столбцами: системный код потребителя и системный код участка тепловой сети. Помогите, пожалуйста, с написанием макроса или подскажите с помощью каких инструментов возможно автоматизированное решение по данному вопросу? Заранее спасибо.
Добрый день. Есть ролик по анализу топологии в макросах. И текст макроса по ссылке в описании.
https://youtu.be/qerFkGQTIyM?si=ghbj_REd76FXCYdg
Какой узел с каким участком связан получается методом GetIncidentElements
 
 
 
#3
26.06.2024 13:28:48
Цитата
написал:
Добрый день. Есть ролик по анализу топологии в макросах. И текст макроса по ссылке в описании. https://youtu.be/qerFkGQTIyM?si=ghbj_REd76FXCYdg Какой узел с каким участком связан получается методом GetIncidentElements
Спасибо, у меня получилось так:
Код
' ActiveX enumeration values definitions start (do not change!)
Const eIncidentIncoming = 1
Const eIncidentOutcoming = 2
' ActiveX enumeration values definitions end

Sub ParentIDWater
Set L = Zulu.ActiveMapDoc.Layers.Active

'Тип 5 это потребитель в ХВС
Set keys = L.SelectByType(5, 0)
Set out = Zulu.OpenOutputChannel("Сообщения")   
out.Clear

For i = 1 To keys.Count
   Set Els = L.GetIncidentElements(keys.Item(i), eIncidentIncoming)
        'На выходе получается: системный код потребителя; системный код участка сети, от которого он подключен
   out.Put CStr(keys.Item(i)) + ";" + CStr(Els.FirstItem.Key) + Chr(10)
Next   

End Sub
 
 
 
Страницы: 1