IMsModelSpace.DefaultObject

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

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    Ms: IMsModelSpace;
Begin
    // Получаем репозиторий
    MB := MetabaseClass.Active;
    // Задаем базовые свойства контейнера моделирования
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_MODELSPACE;
    CrInfo.Id := mb.GenerateId("MS");
    CrInfo.Name := "Контейнер моделирования на атрибутах";
    MObj := MB.CreateObject(CrInfo).Edit;
    Ms := MObj As IMsModelSpace;
    // Указываем базу данных временных рядов для хранения данных
    Ms.Rubricator := MB.ItemById("TSDB");
    // Задаем даты начала и окончания контейнера моделирования
    Ms.StartDate := DateTime.Parse("1.1.2000");
    Ms.EndDate := DateTime.Parse("1.1.2020");
    MObj.Save;
End Sub UserProc;