Возвращает ключ текущего объекта слоя.
Visual Basic:
Property ElemID As Long
read-only
По этому ключу объект находится в коллекции Item объекта Layer.
До вызова MoveFirst итератор пуст: IsEOF сразу возвращает True, а ElemID — -1.
Visual Basic:
Sub IZEnumElements_ElemID 'Итератор по объектам активного слоя карты Set L = Zulu.ActiveMapDoc.Layers.Active Set En = L.EnumElements En.MoveFirst 'Ключи первых пяти объектов слоя s = "" n = 0 Do While Not En.IsEOF And n < 5 s = s & En.ElemID & vbCrLf n = n + 1 En.MoveNext Loop MsgBox s End SubPython:
import zulu def Macro_IZEnumElements_ElemID(): # Итератор по объектам активного слоя карты L = zulu.App.ActiveMapDoc.Layers.Active En = L.EnumElements() En.MoveFirst() # Ключи первых пяти объектов слоя n = 0 while not En.IsEOF() and n < 5: print(En.ElemID) n += 1 En.MoveNext()