Устанавливает систему координат по описанию в формате WKT.

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

CRS

Синтаксис:

Visual Basic:

Function ImportFromWkt(sWkt As String) As Long

sWkt - описание системы координат в формате WKT.

Описание:

Если строка распознана, объект CRS инициализируется параметрами описанной системы координат и метод возвращает 0. В противном случае, в том числе для пустой строки, метод возвращает -1.

Строку в формате WKT можно получить методом GetWkt.

Пример:

Visual Basic:

Sub CRS_ImportFromWkt
Set crs1 = CreateObject("ZuluLib.CRS")
Set crs2 = CreateObject("ZuluLib.CRS")

'Готовим описание системы координат в первом объекте
crs1.InitByCode("EPSG:3857")

'Переносим его во второй объект через строку WKT
If crs2.ImportFromWkt(crs1.GetWkt()) = 0 Then
  MsgBox "Система координат загружена"
Else
  MsgBox "Строку WKT разобрать не удалось"
End If
End Sub

Python:

import zulu

def Macro_CRS_ImportFromWkt():
    crs1 = zulu.CRS()
    crs2 = zulu.CRS()
    # Готовим описание системы координат в первом объекте
    crs1.InitByCode("EPSG:3857")
    # Переносим его во второй объект через строку WKT
    if crs2.ImportFromWkt(crs1.GetWkt()) == 0:
        print("Система координат загружена")
    else:
        print("Строку WKT разобрать не удалось")