IWxWorkspace.Replace

Синтаксис Fore

Replace(Shape: IWxShape; ToWxFigureType: WxFigureType): IWxShape;

Синтаксис Fore.NET

Replace(
        Shape: Prognoz.Platform.Interop.Andy.IWxShape;
        ToWxFigureType: Prognoz.Platform.Interop.Andy.WxFigureType
       ): Prognoz.Platform.Interop.Andy.IWxShape;

Параметры

Shape. Фигура, тип которой необходимо заменить;

ToWxFigureType. Требуемый тип фигуры.

Описание

Метод Replace изменяет тип  фигуры на рабочем пространстве на указанный.

Комментарии

Для получения коллекции фигур рабочего пространства используете свойство IWxWorkspace.Shapes.

Пример Fore

Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WorkSpace», содержащего несколько фигур.

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

Sub Userproc;
Var
    mb: IMetabase;
    Wsp: IWxWorkspace;
    Shape: IWxShape;
Begin
    // Получаем рабочее пространство
    mb := MetabaseClass.Active;
    wsp := mb.ItemById("Workspace").Edit As IWxWorkspace;
    // Получаем первую фигуру на рабочем пространстве
    Shape := Wsp.Shapes.Item(0);
    // Меняем тип фигуры
    Wsp.Replace(Shape, WxFigureType.Ellipse);
    // Сохраняем изменения
    (Wsp As IMetabaseObject).Save;
End Sub Userproc;

 В результате выполнения примера был изменен тип первой фигуры на рабочем пространстве.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Andy;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Wsp: IWxWorkspace;
    Shape: IWxShape;
Begin
    // Получаем рабочее пространство
    mb := Params.Metabase;
    wsp := mb.ItemById["Workspace"].Edit() As IWxWorkspace;
    // Получаем первую фигуру на рабочем пространстве
    Shape := Wsp.Shapes.Item[0];
    // Меняем тип фигуры
    Wsp.Replace(Shape, WxFigureType.wftEllipse);
    // Сохраняем изменения
    (Wsp As IMetabaseObject).Save();
End Sub;

См. также:

IWxWorkspace