Переводит координаты точки из данной системы координат в указанную систему координат.

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

CRS

Синтаксис:

Visual Basic:

Function ConvertPoint(Xin As Double, Yin As Double, outCRS As CRS, Xout As Double, Yout As Double) As Long

Xin, Yin - исходные координаты точки в данной системе.

outCRS - система координат в которую осуществляется преобразование.

Xout,Yout - координаты точки в системе координат outCRS , полученные в результате преобразования.

Описание:

Если преобразование прошло успешно, метод возвращает 0 и записывает результат в переменные Xout, Yout. В противном случае метод возвращает -1.

Пример:

Dim crs1 As CRS
Dim crs2 As CRS

Set crs1 = New CRS
Set crs2 = New CRS
'Широта/долгота WGS 84
crs1.InitByCode "EPSG:4326"

'Сферический Меркатор
crs2.InitByCode "EPSG:3857"

Dim X As Double
Dim Y As Double

'Преобразуем точку из однй системы координат в другую
crs1.ConvertPoint 60, 30, crs2, X, Y