Возвращает элемент коллекции по ключу объекта.

Применяется к:

BoundingBoxes

Синтаксис:

Visual Basic:

Property ItemById(ElemID As Long) As BoundingBox

read-only

ElemID - ключ объекта.

Пример:

Visual Basic:

Sub BoundingBoxes_ItemById
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
If L.LabelLayers.Count = 0 Then
  MsgBox "У активного слоя нет подписей"
  Exit Sub
End If
'Первый подключенный к слою файл надписей (нумерация с нуля)
Set LL = L.LabelLayers.Item(0)
'Габариты бирок. Параметр flags зарезервирован и должен быть нулем
Set Boxes = LL.Labels.GetBoundingBoxes(0)
If Boxes.Count = 0 Then
  MsgBox "Бирок нет"
  Exit Sub
End If
'Берем ключ первой бирки и находим ее же по ключу
Key = Boxes.Item(0).ElemID
Set B = Boxes.ItemById(Key)
MsgBox "Искали ключ " & Key & ", нашли " & B.ElemID
End Sub

Python:

import zulu

def Macro_BoundingBoxes_ItemById():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    if L.LabelLayers.Count == 0:
        print("У активного слоя нет подписей")
        return
    # Первый подключенный к слою файл надписей (нумерация с нуля)
    LL = L.LabelLayers.Item(0)
    # Габариты бирок. Параметр flags зарезервирован и должен быть нулем
    Boxes = LL.Labels.GetBoundingBoxes(0)
    if Boxes.Count == 0:
        print("Бирок нет")
        return
    # Берем ключ первой бирки и находим ее же по ключу
    Key = Boxes.Item(0).ElemID
    B = Boxes.ItemById(Key)
    print("Искали ключ", Key, "нашли", B.ElemID)