IMsModelSpace.UserMethodTemplates

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Kont: IMsModelSpace;
    Templates: IMsUserMethodTemplates;
    Template: IMsUserMethodTemplate;
    TemplateParams: IMsUserMethodTemplateParams;
    TemplateParam: IMsUserMethodTemplateParam;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_MODELSPACE;
    CrInfo.Id := "Kont_Model";
    CrInfo.Name := "Новый контейнер моделирования";
    CrInfo.Parent := MB.Root;
    MObj := MB.CreateObject(CrInfo).Edit;
    Kont := MObj As IMsModelSpace;
    //Установка БД
    Kont.Database := MB.ItemById("BD").Bind As IDatabase;
    //Установка периода
    Kont.StartDate := DateTime.ComposeDay(2000, 1, 1);
    Kont.EndDate := DateTime.AddYears(Kont.StartDate, 10);
    //Шаблон пользовательского метода
    Templates := Kont.UserMethodTemplates;
    Template := Templates.Add;
    Template.Assembly := MB.ItemById("User_Method");
    Template.ClassName := "My_Method";
    //Параметры шаблона
    TemplateParams := Template.Params;
    TemplateParam := TemplateParams.Add;
    TemplateParam.Binding := """UI=""FloatEdit""";
    TemplateParam.Name := "Первый параметр";
    TemplateParam := TemplateParams.Add;
    TemplateParam.Binding := """UI=""FloatEdit""";
    TemplateParam.Name := "Второй параметр";
    MObj.Save;
End Sub UserProc;