Экспортирует слои c указанным именем в файл в формат GeoJSON.

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

ZuluTools

Синтаксис

Visual Basic:

Function ExportToGeoJSON(LayerPath As String, GeoJSONPath As String, CodeEPSG As Integer, flags As Integer) As Boolean

LayerPath - путь до экспортируемого слоя (имя слоя).

GeoJSONPath - имя файла для записи.

CodeEPSG - код EPSG (географической проекции).

flags - параметры экспорта. Может принимать значения:

• 0 - значение по умолчанию, все объекты с аттрибутами.

• 1 - только геометрия (без аттрибутов).

Пример

VBScript

Sub ExportToGeoJSON

Set l = Zulu.ActiveMapDoc.Layers.Active
Set ztools = CreateObject("Zululib.ZuluTools")

'С атрибутами в широте/долготе EPSG:4326
ztools.ExportToGeoJSON l.Name, "D:\Data\Geojson\test1.geojson", 4326, 0

'Без атрибутов в широте/долготе EPSG:4326

ztools.ExportToGeoJSON l.Name, "D:\Data\Geojson\test2.geojson", 4326, 1

End Sub