MetaModel: IMsMetaModel;
The MetaModel property returns the metamodel contained in calculation chain of metamodel.
Executing the example requires that the repository contains a modeling container with the CONT_MODEL identifier. This container should have two metamodels with the BASE_MMODEL and ADD_MMODEL identifiers.
Add links to the Metabase and Ms system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Meta: IMsMetaModel;
New_Meta: IMsMetaModel;
CalculationChain: IMsCalculationChainMetaModel;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemByIdNamespace("BASE_MMODEL",MB.ItemById("CONT_MODEL").Key).Edit;
Meta := MObj As IMsMetaModel;
New_Meta := MB.ItemByIdNamespace("ADD_MMODEL",MB.ItemById("CONT_MODEL").Key).Bind As IMsMetaModel;
CalculationChain := Meta.CalculationChain.AddMetaModel(New_Meta);
Debug.WriteLine(CalculationChain.Name);
MObj.Save;
End Sub;
After executing the example, the ADD_MMODEL metamodel is added to the calculation chain of the BASE_MMODEL metamodel, and its name is displayed in the console window.
See also: