Replace(Shape: IWxShape; ToWxFigureType: WxFigureType): IWxShape;
Replace(Shape: Prognoz.Platform.Interop.Andy.IWxShape; ToWxFigureType: Prognoz.Platform.Interop.Andy.WxFigureType): Prognoz.Platform.Interop.Andy.IWxShape;
Shape. Фигура, тип которой необходимо заменить;
ToWxFigureType. Требуемый тип фигуры.
Метод Replace изменяет тип фигуры на рабочем пространстве на указанный.
Для получения коллекции фигур рабочего пространства используете свойство IWxWorkspace.Shapes.
Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP», содержащего несколько фигур.
Добавьте ссылки на системные сборки: Andy, Metabase.
Sub Userproc;
Var
mb: IMetabase;
Wsp: IWxWorkspace;
Shape: IWxShape;
Begin
// Получаем рабочее пространство
mb := MetabaseClass.Active;
wsp := mb.ItemById("WSP").Edit As IWxWorkspace;
// Получаем первую фигуру на рабочем пространстве
Shape := Wsp.Shapes.Item(0);
// Меняем тип фигуры
Wsp.Replace(Shape, WxFigureType.Ellipse);
// Сохраняем изменения
(Wsp As IMetabaseObject).Save;
End Sub Userproc;
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["WSP"].Edit() As IWxWorkspace;
// Получаем первую фигуру на рабочем пространстве
Shape := Wsp.Shapes.Item[0];
// Меняем тип фигуры
Wsp.Replace(Shape, WxFigureType.wftEllipse);
// Сохраняем изменения
(Wsp As IMetabaseObject).Save();
End Sub;
В результате выполнения примера был изменен тип первой фигуры на рабочем пространстве.
См. также: