Нарезает плитки для указанного тайлового слоя для заданной карты, в заданной области.

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

ZuluTools

Синтаксис:

Visual Basic:

Function GenerateTiles(Path As String, vSrc, inCRS As CRS, pMap As MapDoc, z1 As Long, z2 As Long, nFlags As Long) As Long

Path - полный путь или URL тайлового слоя для записи

vSrc - объект типа VARIANT определяющий границы области, по которой нарезаются плитки.

На данный момент в качестве параметра можно подставлять следующие объекты:

Element, ZRectangle, Layer

inCRS - проекция, соответствующая объекту vSrc

pMap - карта, по которой создаются плитки

z1 - начальный уровень масштабирования

z2 - конечный уровень масштабирования

nFlags - битовые флаги для опций

бит 1 - создавать плитки с прозрачностью

бит 2 - перезаписывать существующие плитки

бит 4 - при построении плиток по слою участвуют только выделенные объекты

Описание:

Метод возвращает 0, если операция прошла успешно, в противном случае метод возвращает код ошибки в виде значения меньше нуля.

-1 - общая ошибка

-2 - указанный слой не является тайловым слоем

-3 - указанный слой не является слоем тайлового кэша, mbtiles или sqlitedb

-4 - не открыть указанный слой

Пример:

'VBScript
Sub MakeTiles

'создаем объект ZuluTools
Set tools = CreateObject("ZuluLib.ZuluTools")

'текущая карта
Set Map = Zulu.ActiveMapDoc

'активный слой текущей карты
 Set L = Zulu.ActiveMapDoc.Layers.Active

'получаем габариты группы объектов активного слоя текущей карты
Set Rect = L.Selection.GetBoundsRectangle()

'нарезаем по габаритам группы плитки с прозрачностью, перезаписыванием существующих, с 5 по 18 уровень
result = tools.GenerateTiles ("D:\Data\Tiles\tiles.zww", Rect, L.GetCRS(), Map, 5, 18, 1+2)

MsgBox result
                 
End Sub