IDimElementGroupPrimitive.Selection

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

Sub UserProc;
Var
    MB: IMetabase;
    MObjDesc: IMetabaseObjectDescriptor;
    MObj: IMetabaseObject;
    ElemGroup: IDimElementGroup;
    ElemGroupPrim: IDimElementGroupPrimitive;
Begin
    MB:=MetabaseClass.Active;
    If MB.ItemById("D_TO").Children.Count<>0 Then
        MObjDesc:=MB.ItemById("D_TO");
        MObj:=MObjDesc.Children.Item(0).Edit;
        ElemGroup:=MObj As IDimElementGroup;
        ElemGroupPrim:=ElemGroup.Item(0);
        ElemGroupPrim.Selection.InvertAll;
        MObj.Save;
    End If;
End Sub UserProc;