IWxWorkspace.CreateLink

Синтаксис

CreateLink: IWxLink;

Описание

Метод CreateLink создает ломаную линию.

Пример

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

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;

После выполнения примера будет создана связь между двумя объектами.

См. также:

IWxWorkspace