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

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

CRS

Синтаксис:

Visual Basic:

Function ConvertContour(Region As Contour, outCRS As CRS, nOptions As Long) As Contour

Region - исходный полигон.

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

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

Описание:

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

Пример:

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 c1 As Contour
Dim c2 As Contour

Set c1 = New Contour

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

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

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