Изменяет координаты точки ломаной.

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

PolyLine

Синтаксис:

Function SetPoint(nPointNum As Long, X As Double,Y As Double) As Boolean

nPointNum - номер изменяемой точки (нумерация с единицы).

X, Y - новые координаты точки ломаной.

Описание:

Метод вернет True, если точка успешно добавлена.

Пример:

'Сдвигаем первую точку полилинии  с ID=14 у активного слоя карты
Sub MoveFirstPoint
   
Set L = Zulu.ActiveMapDoc.Layers.Active

Set El = L.Elements.Item(14)

Set Pl = El.PolyLine

X = Pl.Points.GetX(1)
Y = PL.Points.GetY(1)

Pl.SetPoint 1, X + 10, Y + 10

El.SetPolyLine Pl    

End Sub