Возвращает объект Layer, которому принадлежит данная коллекция ключей.
Visual Basic:
Function GetLayer() As Layer
Слой-владелец известен независимо от того, как получена коллекция: и у подмножества, отобранного методом SelectByType, и у пустой коллекции.
Visual Basic:
Sub ElementKeys_GetLayer 'Берем активный слой карты Set L = Zulu.ActiveMapDoc.Layers.Active 'Коллекция ключей всех объектов слоя Set Keys = L.ElementKeys 'Отбираем подмножество: объекты режима 1, тип любой Set Part = Keys.SelectByType(0, 1) 'Слой-владелец известен и у подмножества Set Owner = Part.GetLayer() MsgBox "Всего ключей: " & Keys.Count & vbCrLf & _ "В подмножестве: " & Part.Count & vbCrLf & _ "Слой-владелец: " & Owner.Name End SubPython:
import zulu def Macro_ElementKeys_GetLayer(): # Берем активный слой карты L = zulu.App.ActiveMapDoc.Layers.Active # Коллекция ключей всех объектов слоя Keys = L.ElementKeys # Отбираем подмножество: объекты режима 1, тип любой Part = Keys.SelectByType(0, 1) # Слой-владелец известен и у подмножества Owner = Part.GetLayer() print("Всего ключей:", Keys.Count) print("В подмножестве:", Part.Count) print("Слой-владелец:", Owner.Name)