IDimElementGroup.UnionType

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    Mobj, Mobj1: IMetabaseObject;
    ElemGroup : IDimElementGroup;
Begin
    Mb:= MetabaseClass.Active;
    Mobj:=Mb.ItemById("D_TO").Edit;
    If MB.ItemById("D_TO").Children.Count<>0 Then
        Mobj1:=Mobj.Children.Item(0).Edit;
        ElemGroup:=Mobj1 As IDimElementGroup;
        ElemGroup.UnionType:=UnionGroupType.Intersection;
        Mobj1.Save;
    End If;
    Mobj.Save;
End Sub UserProc;