IDimIndexInstance.IndexAttributesValues

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    IndxsInst: IDimIndexesInstance;
    IndexInst: IDimIndexInstance;
    Attrs: IDimIndexAttributes;
    v: Variant;
    Attr: Array Of Variant;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Dimen := MB.ItemById("Dim_1").Open(Null) As IDimInstance;
    IndxsInst := Dimen.Indexes;
    If IndxsInst.Count <> 0 Then
        IndexInst := IndxsInst.Item(0);
        Attrs := IndexInst.Index.Attributes;
        v := IndexInst.IndexAttributesValues(Dimen.Elements.Count - 1);
        If v Is Array Then
            Attr := v As Array;
            For i := 0 To Attr.Length - 1 Do
                Debug.Write("Атрибут: " + Attrs.Item(i).Name);
                Debug.WriteLine("; Значение элемента по атрибуту: " + Attr[i]);
            End For;
        Else
            Debug.Write("Атрибут: " + Attrs.Item(i).Name);
            Debug.WriteLine("; Значение элемента по атрибуту: " + v);
        End If;
    End If;
End Sub UserProc;