IMsCalculationChainVariable.Slice

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

Sub ChainEntry;
Var
    mb: IMetabase;
    msKey: Integer;
    Problem: IMsProblem;
    Meta: IMsMetaModel;
    MetaVisual: IMsMetaModelVisualController;
    ChainEnts: IMsCalculationChainEntries;
    i: Integer;
    ChainEl: IMsCalculationChainEntry;
    ChainVar: IMsCalculationChainVariable;
Begin
    mb := MetabaseClass.Active;
    // Получаем ключ контейнера моделирования
    msKey := mb.GetObjectKeyById("MODEL_SPACE");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace("WEB_PROBLEM", msKey).Bind As IMsProblem;
    // Получаем метамодель
    Meta := Problem.MetaModel;
    MetaVisual := Meta.VisualController;
    // Получаем цепочку расчёта метамодели
    ChainEnts := Meta.CalculationChain;
    For i := 0 To ChainEnts.Count - 1 Do
        ChainEl := ChainEnts.Item(i);
        // Выводим информацию только о переменных
        If ChainEl.Type = MsCalculationChainEntryType.Variable Then
            ChainVar := ChainEl As IMsCalculationChainVariable;
            Debug.WriteLine("Наименование: " + ChainVar.Slice.Name);
            Debug.WriteLine("Внутренняя переменная: " + ChainVar.IsInternal.ToString);
            Debug.WriteLine("");
        End If;
    End For;
End Sub ChainEntry;