Возвращает ключ элемента из коллекции, который имеет самое большое значение.
Visual Basic:
Property LargestId() As Long
read-only
Если ключ не был найдет, то свойство вернет значение -1.
Sub NetworkObjects_LargestId 'Задаем константу равное 3. То есть выбираем все объекты сети Const eNetworkAll = 3 Set L = Zulu.ActiveMapDoc.Layers.Active 'присваиваем переменной nwo коллекцию сети с фильтром по всем объектам Set nwo = L.NetworkObjects (eNetworkAll) 'присваиваем переменной output значение наибольшего ключа output = nwo.LargestId 'Выводим значение переменной в отдельное окно для проверки MsgBox(output) End Sub