IMsCalculationState.Breakpoint

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

Sub UserProc;
Var
    mb: IMetabase;
    pModelSpace: IMetabaseObjectDescriptor;
    _prob: IMsProblem;
    settings: IMsProblemCalculationSettings;
    _calc: IMsProblemCalculation;
    state: IMsCalculationState;
    Point: IMsBreakpoint;
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;
    Point := state.Breakpoint;
    If Point <> Null Then
        Debug.WriteLine("Контрольная точка доступна: "+Point.Enable.ToString);
        Debug.WriteLine("Ключ контрольной точки: "+Point.Key.ToString);
        Debug.WriteLine("Наименование контрольной точки: "+Point.Name);
        Debug.WriteLine("=== Прерываем расчет ===");
    End If;
    _calc.Stop;
End Sub UserProc;