IMsCalculationState.CurrentPoint

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

Sub UserProc;

Var
    mb: IMetabase;
    pModelSpace: IMetabaseObjectDescriptor;
    _prob: IMsProblem;
    settings: IMsProblemCalculationSettings;
    _calc: IMsProblemCalculation;
    state: IMsCalculationState;
    slice: IMsFormulaTransformSlice;
    ds: IMatrixDataSource;
    mt: IMatrix;
    iter: IMatrixIterator;
    TrVar: IMsFormulaTransformVariable;
Begin
    mb := MetabaseClass.Active;
    pModelSpace := mb.ItemById("CONT_MODEL");
    _prob := mb.ItemByIdNamespace("OBJ_PROBLEM",pModelSpace.Key).Bind As IMsProblem;
    settings := _prob.CreateCalculationSettings;
    _calc := _prob.Calculate(settings);
    Repeat
        _calc.StepOver;
        state := _calc.CalculationState;
        Debug.WriteLine(state.Message);
    Until state.Model <> Null;
    Debug.WriteLine("Текущая точка расчета: " + state.CurrentPoint.ToString);
    Debug.WriteLine("Ключ сценария: " + state.Scenario.ToString);
    Debug.WriteLine("Модель:" + (state.Model As IMetabaseObject).Name);
    TrVar := state.Model.Transform.Outputs.Item(0);
    slice := TrVar.Slices.Item(0);
    ds := state.Data(slice);
    mt := ds.Execute(Null);
    Debug.WriteLine("Текущие значения выходной переменной '" + TrVar.Name+"'");
    Iter := mt.CreateIterator;
    Iter.Move(IteratorDirection.First);
    While Iter.Valid Do
        Debug.WriteLine("" + Iter.Value);
        Iter.Move(IteratorDirection.Next);
    End While;
    Debug.WriteLine("=== Прерываем расчет ===");
    _calc.Stop;
End Sub UserProc;