IMsProblemScenarios.AddScenario

Синтаксис

AddScenario(Scenario: IMsScenario);

Параметры

Scenario. Сценарий контейнера моделирования.

Описание

Метод AddScenario осуществляет добавление сценария контейнера моделирования в коллекцию сценариев задачи.

Пример

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

KMSpace: IMsModelSpace;

KmScens: IMsScenarios;

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.Scenarios;

Problem := MObj As IMsProblem;

ProbScen := Problem.Scenarios;

ProbScen.AddScenario(KmScens.Item(KmScens.Count - 1));

MObj.Save;

End Sub Main;

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

См. также:

IMsProblemScenarios