Устанавливает систему координат по описанию в формате MapInfo.
Visual Basic:
Function ImportFromMapInfo(sMi As String) As Long
sMi - описание системы координат в формате MapInfo.
Строка задается в том же виде, в каком она хранится в файлах формата TAB системы MapInfo, и должна содержать ключевое слово CoordSys. Например: CoordSys Earth Projection 1, 104.
Если строка распознана, объект CRS инициализируется параметрами описанной системы координат и метод возвращает 0. Если строку разобрать не удалось или описанная в ней проекция не поддерживается, метод возвращает -1.
Visual Basic:
Sub CRS_ImportFromMapInfo Set crs = CreateObject("ZuluLib.CRS") 'Строка описания системы координат в формате MapInfo If crs.ImportFromMapInfo("CoordSys Earth Projection 1, 104") = 0 Then MsgBox "Система координат загружена" Else MsgBox "Строку разобрать не удалось" End If End SubPython:
import zulu def Macro_CRS_ImportFromMapInfo(): crs = zulu.CRS() # Строка описания системы координат в формате MapInfo if crs.ImportFromMapInfo("CoordSys Earth Projection 1, 104") == 0: print("Система координат загружена") else: print("Строку разобрать не удалось")