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

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

CRS

Синтаксис:

Visual Basic:

Function ConvertPolyline(pLine As PolyLine, outCRS As CRS, nOptions As Long) As PolyLine

pLine - исходная полилиния.

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

nOptions - зарезервировано, должно быть 0.

Описание:

Если преобразование прошло успешно, метод возвращает новый объект PolyLine с преобразованными координатами. В противном случае метод возвращает пустой объект.

Пример:

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 p1 As PolyLine
Dim p2 As PolyLine

Set p1 = New PolyLine

'Заполняем полилинию координатами в единицах первой системы координат
p1.AddPoint 60, 30
p1.AddPoint 61, 31
p1.AddPoint 59, 32

'Получаем контур в другой системе координат
Set p2 = crs1.ConvertPolyline( p1, crs2, 0 )

'Проверяем результат на пустой объект
If TypeName(p2) = "Nothing" Then
    MsgBox "Ошибка преобразования"
End If