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

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

CRS

Синтаксис:

Visual Basic:

Function ConvertPolyPolyline(pLine As PolyPolyLine, outCRS As CRS, nOptions As Long) As PolyPolyLine

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

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

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

Описание:

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

Пример:

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

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

'Если объект существует
If el.Key <> -1 Then
    'Если объект линейный
    If el.GraphType = eGraphTypePrimPolyline Or eGraphTypeTypedPolyline Then
        'Получаем полиполилинию
        Set pL1 = el.PolyPolyLine       
        'Преобразуем координаты полиполилинии из системы координат слоя L1 в систему координат слоя L2
        Set pl2 = L1.GetCRS().ConvertPolyPolyline(pl1, L2.GetCRS(), 0)
        'Если возвращенный методом объект не пустой
        If TypeName(pl2) = "IPolyPolyLine" Then
            'Добавляем полиполилинию в слой L2
             L2.AddPolyPolyLine pl2, el.ElemStyle, -1, -1    
        End If
    End If
End If