IMsProblemInstance.Calculate

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

Sub UserProc;
Var
    Mb: IMetabase;
    MsKey: Integer;
    ProblemDesc, MetaModelDesc: IMetabaseObjectDescriptor;
    pParam, mParam: IMetabaseObjectParam;
    MetaModel: IMsMetaModel;
    Control: IMetabaseObjectControl;
    ParamControl: IMetabaseObjectParamControl;
    ModelParam: IMsModelParam;
    Instance: IMsProblemInstance;
    Calculation: IMsProblemCalculation;
    CalcSettings: IMsProblemCalculationSettings;
    ParamValues: IMetabaseObjectParamValues;
Begin
    Mb := MetabaseClass.Active;
    // Получим ключ контейнера моделирования
    MsKey := Mb.GetObjectKeyById("CONT_MODEL");
    // Получим метамодель
    MetaModelDesc := Mb.ItemByIdNamespace("METAMODEL", MsKey).EditDescriptor;
    // Добавим параметр у метамодели
    MetaModelDesc.Params.Clear;
    mParam := MetaModelDesc.Params.Add;
    mParam.Id := "PARAMINT";
    mParam.Name := "Дополнительное значение";
    MetaModelDesc.SaveDescriptor;
    // Получим задачу моделирования
    ProblemDesc := Mb.ItemByIdNamespace("PROBLEM", MsKey).EditDescriptor;
    // Добавим параметр у задачи
    ProblemDesc.Params.Clear;
    pParam := ProblemDesc.Params.Add;
    pParam.Id := "PARAMINT";
    pParam.Name := "Дополнительное значение";
    // Настроим управление параметром метамодели через параметр задачи
    Control := ProblemDesc.Params.ControlInfo.FindByKey(MetaModelDesc.Key);
    ParamControl := Control.FindByKey(pParam.Key);
    ParamControl.Expression.AsString := ":" + ParamControl.ControlledParam.Id;
    ProblemDesc.SaveDescriptor;
    // Зададим параметр для передачи значения в метамодель
    MetaModel := MetaModelDesc.Edit As IMsMetaModel;
    MetaModel.Params.Clear;
    ModelParam := MetaModel.Params.Add;
    ModelParam.Id := "PARAMINT";
    ModelParam.Name := "Дополнительное значение";
    ModelParam.ObjectParam := mParam;
    // Сохраним метамодель
    (MetaModel As IMetabaseObject).Save;
    // Зададим значение добавленного параметра метамодели через задачу
    ParamValues := ProblemDesc.Params.CreateEmptyValues;
    ParamValues.FindById("PARAMINT").Value := 100;
    // Получим открытый экземпляр задачи моделирования
    Instance := ProblemDesc.Open(ParamValues) As IMsProblemInstance;
    // Зададим настройки для расчёта
    CalcSettings := Instance.CreateCalculationSettings;
    CalcSettings.FactIncluded := True;
    CalcSettings.BreakOnError := True;
    // Выполним расчёт
    Calculation := Instance.Calculate(CalcSettings);
    Calculation.Run;
    Debug.WriteLine("Выполнен расчёт открытого экземпляра задачи моделирования " + Instance.Problem.Id);
End Sub UserProc;