IMsProblemCalculationSettings.EntriesFilter

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

Sub UserProc;
Var
    mb: IMetabase;
    MsKey: Integer;
    Problem: IMsProblem;
    CalcChain: IMsCalculationChainEntries;
    CalcSettings: IMsProblemCalculationSettings;
    ChainFilter: IMsCalculationChainFilter;
    Calculation: IMsProblemCalculation;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    MsKey := mb.GetObjectKeyById("MS");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace("PROBLEM_FILTER", MsKey).Edit As IMsProblem;
    // Получаем параметры расчета задачи
    CalcSettings := Problem.CreateCalculationSettings;
    // Получаем коллекцию рассчитываемых элементов
    ChainFilter := CalcSettings.EntriesFilter;
    // Очищаем коллекцию
    ChainFilter.Clear;
    // Получаем цепочку расчета
    CalcChain := Problem.EditMetaModel.CalculationChain;
    // Добавляем в коллекцию рассчитываемых элементов только нечетные элементы из цепочки расчета
    For i := 1 To CalcChain.Count Do
        If (i Mod 2) <> 0 Then
            ChainFilter.Add(CalcChain.Item(i - 1));
        End If;
    End For;
    // Выводим в окно консоли наименования рассчитываемых элементов
    Debug.WriteLine("Наименования рассчитываемых элементов:");
    For i := 0 To ChainFilter.Count - 1 Do
        Debug.WriteLine(ChainFilter.Item(i).Name);
    End For;
    // Выполняем расчет задачи
    Calculation := Problem.Calculate(CalcSettings);
    Calculation.Run;
End Sub UserProc;