Add: IMsScenario;
Метод Add осуществляет добавление нового сценария.
Sub Main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
KM: IMsModelSpace;
Scenars: IMsScenarios;
Scen: IMetabaseObject;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("KONT_MODEL").Edit;
KM := MObj As IMsModelSpace;
Scenars := KM.Scenarios;
Scen := Scenars.Add As IMetabaseObject;
Scen.Id := "New_scenario";
Scen.Name := "Новый сценарий";
Scen.Save;
MObj.Save;
End Sub Main;
После выполнения примера в контейнер моделирования с идентификатором "KONT_MODEL" будет добавлен новый сценарий.
См. также: