IWxWorkspace.DeglueShapes

Синтаксис

DeglueShapes(Shape1: IWxShape; Shape2: IWxShape);

DeglueShapes(Shape1: Prognoz.Platform.Interop.Andy.IWxShape; Shape2: Prognoz.Platform.Interop.Andy.IWxShape);

Параметры

Shape1. Фигура;

Shape2. Фигура.

Описание

Метод DeglueShapes разъединяет две фигуры.

Комментарии

Если связь была задана с использованием соединительных линии (IWxStraightLink) - для разъединения следует использовать метод DeglueShapes.

Пример

Для выполнения примера предполагается наличие объекта типа рабочее пространство. Cоздайте форму, добавьте на нее кнопку с наименованием «Button1», компонент WorkspaceBox с наименованием «WorkspaceBox1», компонент UiWorkspaceObject с наименованием «UiWorkspaceObject1», укажите рабочее пространство в качестве объекта компонента «UiWorkspaceObject1», компонент «UiWorkspaceObject1» в качестве источника компонента «WorkspaceBox1» и значение True свойства Active компонента «UiWorkspaceObject1». На рабочем пространстве с идентификатором «OBJ143132» расположены две фигуры.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    mb: IMetabase;
    wsp: IWxWorkspace;
    Shapes: IWxShapes;
    Link: IWxLink;
Begin
        // Получаем рабочее пространство
    mb := MetabaseClass.Active;
    wsp := mb.ItemById("OBJ143132").Edit As IWxWorkspace;
    Shapes := wsp.Shapes;
    Link := wsp.AutoLinkShapes(Shapes.Item(0), Shapes.Item(1));
    wsp.DeglueShapes(Shapes.Item(0), Link);
    wsp.DeglueShapes(Shapes.Item(1), Link);
    //Сохраняем изменения
    (wsp As IMetabaseObject).Save;
End Sub Button1OnClick;

Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;
 
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    mb: IMetabase;
    wsp: IWxWorkspace;
    Shapes: IWxShapes;
    Link: IWxLink;
Begin
    // Получаем рабочее пространство
    mb := Self.Metabase;
    wsp := mb.ItemById["OBJ143132"].Edit() As IWxWorkspace;
    Shapes := wsp.Shapes;
    Link := wsp.AutoLinkShapes(Shapes.Item[0], Shapes.Item[1]);
    wsp.DeglueShapes(Shapes.Item[0], Link);
    wsp.DeglueShapes(Shapes.Item[1], Link);
    //Сохраняем изменения
    (wsp As IMetabaseObject).Save();
End Sub;

После выполнения примера на рабочем пространстве появится линия, которая раньше соединяла фигуры.

См. также:

IWxWorkspace