Возвращает габариты слоя в заданной системе координат.

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

Layer

Синтаксис:

Visual Basic:

Function GetBoundsCRSRectangle(inCRS As CRS) As ZRectangle

inCRS - система координат, в которой возвращаются габариты слоя

Пример печати карты по габаритам активного слоя:

'VBScript:
' ActiveX enumeration values definitions start (do not change!)
Const ePrintFitToPage = 2
Const ePrintExplicitRect = 64
' ActiveX enumeration values definitions end

'Пример печати карты на одной странице по габаритам активного слоя
Sub PrintTest

'Получаем активную карту
Set doc = zulu.ActiveMapDoc

'Создаем объект для настройки печати
Set P = CreateObject("ZuluLib.PrintInfo")

'Получаем габариты слоя в проекции карты
Set rect = doc.Layers.Active.GetBoundsCRSRectangle(doc.GetCRS)

'Задаем область печати, с указанием, к какой проекции относится этот прямоугольник 
P.SetAreaRectangle doc.GetCRS, rect

'Печать на одну страницу заданной области
P.Options = ePrintFitToPage + ePrintExplicitRect

'Запускаем процесс печати
doc.PrintOut P

End Sub