MetaModel: IMsMetaModel;
Свойство MetaModel возвращает метамодель, содержащуюся в цепочке расчета метамодели.
Для выполнения примера предполагается наличие контейнера моделирования с идентификатором «CONT_MODEL». В данном контейнере должны существовать две метамодели с идентификаторами «BASE_MMODEL» и «ADD_MMODEL».
Sub Main;
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 Main;
После выполнения примера в цепочку расчета метамодели «BASE_MMODEL» будет добавлена метамодель «ADD_MMODEL», а в окно консоли будет выведено ее наименование.
См. также: