Работа со сценариями контейнера моделирования

Для выполнения примера предполагается наличие контейнера моделирования с идентификатором "Kont_Model".

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

ModelSpace: IMsModelSpace;

Tree: IMsScenarioTreeEntries;

Folder: IMsScenarioTreeFolder;

Scen: IMsScenarioTreeElement;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemById("Kont_Model").Edit;

ModelSpace := MObj As IMsModelSpace;

Tree := ModelSpace.ScenarioTree;

Folder := Tree.AddFolder("Дополнительные сценарии");

Scen := Folder.Contents.AddScenario;

Scen.Name := "Сценарий №1";

MObj.Save;

End Sub Main;

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

См. также:

Примеры