InsertPoint(Number: Integer; Point: IGxPointF);
Number - индекс точки линии, перед которой будет вставлена новая точка;
Point - координата точки.
Метод InsertPoint вставляет новую точку.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Link : IWxLink;
Point : IGxPointF;
Begin
Link := ws.Shapes.Item(2) As IWxLink;
Point := New GxPointF.Create(Link.Points(1).X - 3, Link.Points(1).Y - 5);
Link.InsertPoint(1, Point);
End Sub UserProc;
После выполнения примера на линию будет добавлена новая точка, размещенная после начальной точки линии.
См. также: