Размеры прямоугольной области — например, габариты бирки. Объект возвращается как элемент коллекции BoundingBoxes.
Входит в состав библиотеки ZuluGIS 2021 Library.
Visual Basic:
Sub BoundingBox_cls 'Берем активный слой карты 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 'Отдельная область - элемент коллекции Set B = Boxes.Item(0) Set R = B.Rectangle MsgBox "ключ " & B.ElemID & ": " & R.Xmin & ", " & R.Ymin & _ " - " & R.Xmax & ", " & R.Ymax End SubPython:
import zulu def Macro_BoundingBox_cls(): # Берем активный слой карты 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 # Отдельная область - элемент коллекции B = Boxes.Item(0) R = B.Rectangle print("ключ %s: %s, %s - %s, %s" % (B.ElemID, R.Xmin, R.Ymin, R.Xmax, R.Ymax))