Устанавливает систему координат по заданному строковому коду.
Visual Basic:
Function InitByCode(sCRS As String) As Long
sCRS - строковый код проекции.
Строковый код системы координат представляет собой код по классификатору EPSG (European Petroleum Survey Group). Строка формируется из префикса EPSG: и числового кода. Если заданный код распознается системой, объект CRS инициализируется параметрами системы координат, соответствующей этому коду и метод возвращает 0. В противном случае метод возвращает -1.
Dim crs1 as CRS Dim crs2 as CRS 'Создаем объекты Set crs1 = New CRS Set crs2 = New CRS 'Задаем для первого объекта систему координат WGS 84 Lat\Lon crs1.InitByCode("EPSG:4326") 'Задаем для второго объекта систему координат Spherical Mercator crs1.InitByCode("EPSG:3857")