Выводит изображение карты в растр с параметрами, заданными в объекте PrintToRasterParams

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

MapDoc

Синтаксис:

Visual Basic:

Function PrintToRaster(iParams As String, iParams As PrintToRasterParams) As Long

Пример записи карты в растровый файл:

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

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

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

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

'Задаем область печати по габаритам акивного слоя
P.SetBoundsRectangle rect

'Задаем масштаб печати
P.SetScale 1000000

'Задаем формат PNG
P.SetRasterType 4

'Запись в растровый файл
doc.PrintToRaster "d:\test\raster.bmp", P

End Sub