Создает тайловый слой в виде контейнера БД SQLite в формате MBTiles.

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

ZuluTools

Синтаксис:

Visual Basic:

Function MBTilesCreate(Path As String, UserName As String, Format As Long, nFlags As Long) As Long

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

UserName - пользовательское название слоя

Format - растровый формат плиток может принимать одно из значений:

0	Bitmap Picture (BMP)
1	Joint Photographic Experts Group (JPEG)
2	Graphics Interchange Format (GIF)
3	Tagged Image File Format (TIFF)
4	Portable Network Graphics (PNG)

nFlags - битовые флаги для опций (зарезервирован, должен быт 0)

Описание:

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

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

Пример:

'VBScript
Sub CreateTiles

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

tools.MBTilesCreate "D:\Data\Tiles\tiles.mbtiles", "mbtiles test", 4, 0

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

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

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

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

MsgBox result
                 
End Sub