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

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

CRS

Синтаксис:

Visual Basic:

Function ConvertPolyContour(Region As PolyContour, outCRS As CRS, nOptions As Long) As PolyContour

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

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

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

Описание:

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

Пример:

'Записываем площадной объект с ключом ID из одного слоя L1 в слой L2
Dim el As Element
Dim pc1 As PolyContour
Dim pc2 As PolyContour

'Получаем элемент с ключом ID
Set el = L1.Elements.GetElement(ID)

'Если объект существует
If el.Key <> -1 Then

    'Если объект площадной
    If el.GraphType = eGraphTypePrimSquare Or eGraphTypeTypedSquare Then

       'Получаем полиполигон
        Set pc1 = el.PolyContour

       'Преобразуем координаты полигона из системы координат слоя L1 в систему координат слоя L2
        Set pc2 = L1.GetCRS().ConvertPolyContour(pc1, L2.GetCRS(), 0)

       'Если возвращенный методом объект не пустой
        If TypeName(pc2) = "IPolyContour" Then

       'Добавляем полигон в слой L2
            L2.AddPolyContour pc2, el.ElemStyle, -1, -1
    
        End If

    End If

End If