PointCount: Integer;
The PointCount property returns the number of line points.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Link : IWxLink;
Begin
Link := ws.Shapes.Item(2) As IWxLink;
Link.RemovePoint(Link.PointCount-2);
End Sub UserProc;
After executing the example a line point next to the final one is deleted.
See also: