IMsMetaModelVisualController.LevelFormat

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

Sub UserProc;
Var
    mb: IMetabase;
    MsObj: IMetabaseObjectDescriptor;
    Problem: IMsProblem;
    Meta: IMsMetaModel;
    MetaVisual: IMsMetaModelVisualController;
    ChainEn: IMsCalculationChainEntries;
    i: Integer;
    ChainVar: IMsCalculationChainVariable;
Begin
    mb := MetabaseClass.Active;
    // Получаем контейнер моделирования
    MsObj := mb.ItemById("MODEL_SPACE");
    // Получаем задачу моделирования
    Problem := mb.ItemByIdNamespace("PROBLEM", MsObj.Key).Edit As IMsProblem;
    // Получаем метамодель
    Meta := Problem.MetaModel;
    MetaVisual := Meta.VisualController;
    // Задаем параметры отображения календарной динамики
    MetaVisual.LevelFormat := MsLevelFormat.Long;
    MetaVisual.UpdateVariables;
    // Выводим наименования переменных в окно консоли
    ChainEn := Meta.CalculationChain;
    For i := 0 To ChainEn.Count - 1 Do
        If ChainEn.Item(i).Type = MsCalculationChainEntryType.Variable Then
            ChainVar := ChainEn.Item(i) As IMsCalculationChainVariable;
                Debug.WriteLine("Переменная: " + ChainVar.Key.ToString);
                Debug.WriteLine("  - исходное наименование: " + ChainVar.OriginalName);
                Debug.WriteLine("  - полное наименование: " + ChainVar.FullName);
        End If;
    End For;
    (Problem As IMetabaseObject).Save;
End Sub UserProc;