IMsObjectParamValue.LinkedParam

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

Sub SubProc;
Var
    mb: IMetabase;
    cubeDesc: IMetabaseObjectDescriptor;
    msKey: Integer;
    mm: IMsMetaModel;
    param: IMsModelParam;
    paramValues: IMsObjectParamValues;
    paramValue: IMsObjectParamValue;
    linkedParam: IMsModelParamAttributes;
    dim: IDimInstance;
    attrs: IMsDimAttributesList;
    attr: IDimAttribute;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    // Получим куб
    cubeDesc := mb.ItemById("CUBE");
    // Получим контейнер моделирования
    msKey := mb.ItemById("CONTAINER").Key;
    // Получим метамодель
    mm := mb.ItemByIdNamespace("METAMODEL", msKey).Edit As IMsMetaModel;
    // Получим параметр метамодели
    param := mm.Params.FindById("GROUP");
    // Добавим куб в параметры объектов метамодели
    mm.ObjectParamValues.Clear;
    paramValues := mm.ObjectParamValues.Add(cubeDesc);
    // Получим параметр куба
    paramValue := paramValues.Item(0);
    // Свяжем параметр метамодели с параметром куба
    linkedParam := paramValue.LinkedParam;
    linkedParam.Parameter := param;
    // Получим атрибут измерения параметра
    dim := param.LinkedObject.Open(Null) As IDimInstance;
    attr := dim.Attributes.FindById("KEY").Attribute;
    // Установим параметр атрибута
    linkedParam.ClearAttributes;
    attrs := linkedParam.Attributes;
    attrs.Add(attr);
    // Сохраним метамодель
    (mm As IMetabaseObject).Save;
End Sub SubProc;