IMsScenarioTreeEntries.AddScenario

Синтаксис

AddScenario([External: Boolean = False;][Save: Boolean = True]): IMsScenarioTreeElement;

Параметры

External. Признак того, что сценарий внешний;

Save. Признак того, что сценарий сохраняется.

Описание

Метод AddScenario добавляет новый сценарий.

Комментарии

Допустимые значения параметра External:

Допустимые значения параметра Save:

Пример

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «MS».

Добавьте ссылки на системные сборки: Metabase, Ms.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    ModelSpace: IMsModelSpace;
    Tree: IMsScenarioTreeEntries;
    Folder: IMsScenarioTreeFolder;
    Scen: IMsScenarioTreeElement;
    Scenario: IMsScenario;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем контейнер моделирования
    MObj := MB.ItemById("MS").Edit;
    ModelSpace := MObj As IMsModelSpace;
    // Получаем дерево сценариев
    Tree := ModelSpace.ScenarioTree;
    // Добавляем папку
    Folder := Tree.AddFolder("Дополнительные сценарии");
    // Создаем новый сценарий
    Scen := Folder.Contents.AddScenario(FalseFalse);
    // Задаем наименование сценария
    Scen.Name := "Базовый сценарий";
    // Указываем, что сценарий защищенный
    Scenario := Scen.Scenario;
    Scenario.Protected_ := True;
    // Сохраняем изменения в сценарии
    (Scenario As IMetabaseObject).Save;
    // Сохраняем изменения в контейнере моделирования
    MObj.Save;
End Sub UserProc;

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

См. также:

IMsScenarioTreeEntries