IWxWorkspace.CreateStraightLink

Метод CreateStraightLink создает соединительную линию. Соединительная линия всегда располагается строго вертикально или горизонтально.

Примечание. Если соединительная линия устанавливает связь между двумя объектами, то для каждого объекта будет создана новая точка соединения, которая будет использоваться данной соединительной линией.

Пример

Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP».

Добавьте ссылки на системные сборки: Andy, Drawing, Metabase.

Fore Fore.NET

Sub UserProc;
Var
    mb: IMetabase;
    ws: IWxWorkspace;
    StrLink: IWxStraightLink;
    Shapes: IWxShapes;
Begin
    // Получаем рабочее пространство для редактирования
    mb := MetabaseClass.Active;
    ws := mb.ItemById("WSP").Edit As IWxWorkspace;
    // Соединяем вторую фигуру с первой
    StrLink := ws.CreateStraightLink;
    Shapes := ws.Shapes;
    ws.GlueConnectionPoints(Shapes.Item(0), 2, StrLink, 0);
    ws.GlueConnectionPoints(Shapes.Item(1), 3, StrLink, 1);
    (ws As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Drawing;

Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    ws: IWxWorkspace;
    StrLink: IWxStraightLink;
    Shapes: IWxShapes;
Begin
    // Получаем рабочее пространство для редактирования
    mb := Params.Metabase;
    ws := mb.ItemById["WSP"].Edit() As IWxWorkspace;
    // Соединяем вторую фигуру с первой
    StrLink := ws.CreateStraightLink();
    Shapes := ws.Shapes;
    ws.GlueConnectionPoints(Shapes.Item[0], 2, StrLink, 0);
    ws.GlueConnectionPoints(Shapes.Item[1], 3, StrLink, 1);
    (ws As IMetabaseObject).Save();
End Sub;

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

IWxWorkspace.CreateStraightLink

Синтаксис

Описание

Пример