IMsProblemScenarios.AddScenario

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    KMSpace: IMsModelSpace;
    KmScens: IMsScenarioTreeEntries;
    Problem: IMsProblem;
    ProbScen: IMsProblemScenarios;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("PROBLEM_1", MB.ItemById("KONT_MODEL").Key).Edit;
    KMSpace := MB.ItemById("KONT_MODEL").Bind As IMsModelSpace;
    KmScens := KMSpace.ScenarioTree;
    Problem := MObj As IMsProblem;
    ProbScen := Problem.Scenarios;
    ProbScen.AddScenario(KmScens.Item(KmScens.Count - 1) As IMsScenario);
    MObj.Save;
End Sub UserProc;