Creating Elements in Fact Dimension

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Cube: IStandardCube;
    CustDim: ICustomDimension;
    CustDimTree: ICustomDimTree;
    Root1, Root2, Child1, Child2: Variant;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("CUBE_1").Edit;
    Cube := MObj As IStandardCube;
    CustDim := Cube.FactDimension.Dimension As ICustomDimension;
    CustDimTree := CustDim.Tree;
    Root1 := CustDimTree.Add(Null);
    Root2 := CustDimTree.Add(Null);
    Child1 := CustDimTree.Add(Root1);
    Child2 := CustDimTree.Add(Root2);
    CustDimTree.Name(Root1) := "First root";
    CustDimTree.Name(Root2) := "Second root";
    CustDimTree.Name(Child1) := "First child";
    CustDimTree.Name(Child2) := "Second child";
    MObj.Save;
End Sub UserProc;