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

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

CRS

Синтаксис:

Visual Basic:

Function GetConvertPoint(Xin As Double, Yin As Double, outCRS As CRS) As ZPoint

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

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

Описание:

Метод возвращает объект ZPoint. Если метод ZPoint.IsValid возвращает True, то ZPoint содержит координаты преобразованной точки. В противном случае метод возвращает пустой объект.

В отличие от метода ConvertPoint, может использоваться в VB Script.

Пример:

Dim pt As ZPoint
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

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

'Проверяем результат 
If pt.IsValid = False Then 
  MsgBox "Ошибка преобразования" 
End If