Возвращает количество элементов коллекции BoundingBoxes.

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

BoundingBoxes

Синтаксис:

Visual Basic:

Property Count As Long

read-only

Пример:

Visual Basic:

Sub BoundingBoxes_Count
'Берем активный слой карты
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)
'Count задает верхнюю границу обхода, нумерация с нуля
s = "Бирок: " & Boxes.Count & vbCrLf
For i = 0 To Boxes.Count - 1
  s = s & "ключ " & Boxes.Item(i).ElemID & vbCrLf
Next
MsgBox s
End Sub

Python:

import zulu

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