CreateLink: IWxLink;
The CreateLink method creates a broken line.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Link : IWxLink;
Shapes : IWxShapes;
Begin
Link := ws.CreateLink;
Shapes := ws.Shapes;
Link.FirstPoint := Shapes.Item(0).ConnectionPoints(0);
Link.LastPoint := Shapes.Item(1).ConnectionPoints(0);
End Sub UserProc;
After executing the example a link between two objects is created.
See also: