Возвращает прямоугольную область в виде объекта ZRectangle.

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

BoundingBox

Синтаксис:

Visual Basic:

Property Rectangle As ZRectangle

read-only

Пример:

Visual Basic:

Sub BoundingBox_Rectangle
'Берем активный слой карты
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
'Габариты области возвращаются объектом ZRectangle
Set R = Boxes.Item(0).Rectangle
MsgBox "Xmin=" & R.Xmin & " Ymin=" & R.Ymin & vbCrLf & _
       "Xmax=" & R.Xmax & " Ymax=" & R.Ymax
End Sub

Python:

import zulu

def Macro_BoundingBox_Rectangle():
    # Берем активный слой карты
    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
    # Габариты области возвращаются объектом ZRectangle
    R = Boxes.Item(0).Rectangle
    print("Xmin=%s Ymin=%s" % (R.Xmin, R.Ymin))
    print("Xmax=%s Ymax=%s" % (R.Xmax, R.Ymax))