Экспортирует данные слоя в файлы формата Google KML.

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

ZuluTools

Синтаксис:

Visual Basic:

Function ExportToKML(LayerPath As String, KmlPath As String, flags As Long, iParams As ExportInfoParams) As Boolean

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

KmlPath - путь к файлу KML.

flags - флаги по умолчанию:

2 - экспорт атрибутов.

4 - ID объекта (поле Sys) в качестве бирки.

ExportInfoParams - объект ExportInfoParams с описанием экспортируемых типов.

Описание:

Объект ExportInfoParams содержит список экспортируемых типов с индивидуальными настройками для каждого типа.

Если этот параметр равен Nothing, то экспортируются примитивы и все типы с опциями из параметра flags.

Метод возвращает True, если операция прошла успешно, в противном случае метод возвращает False. Метод аналогичен команде Файл|Экспорт|Google KML системы Zulu.

Пример:

Private Sub Command18_Click()
           
Dim tools As ZuluTools

Set tools = New ZuluTools
'произведем экспорт всех типов слоя водопроводной сети в формат KML 

If tools.ExportToKML("d:\nastya\new\voda.b00", "d:\nastya\new\voda_all.kml", 2+4, Nothing) = True Then
        MsgBox "Слой экспортирован удачно"
    Else: MsgBox "Ошибка экспорта"
End If

'произведем экспорт типа ID=8 (участки) для слоя водопроводной сети в формат KML 

Set params = New ExportInfoParams

params.AddType 8, true, true, ""

If tools.ExportToKML("d:\nastya\new\voda.b00", "d:\nastya\new\voda_8.kml", 0, params) = True Then
        MsgBox "Слой экспортирован удачно"
    Else: MsgBox "Ошибка экспорта"
End If


End Sub