IMsModelSpaceCopier.Copy

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

Sub UserProc;
Var
    mb: IMetabase;
    CreateInfo: IMetabaseObjectCreateInfo;
    Copier: IMsModelSpaceCopier;
    MsDest, MsSource: IMetabaseObjectDescriptor;
Begin
    mb := MetabaseClass.Active;
// создаем результирующий контейнер моделирования
    CreateInfo := mb.CreateCreateInfo;
    CreateInfo.ClassId := MetabaseObjectClass.KE_CLASS_MODELSPACE;
    MsDest := mb.CreateObject(CreateInfo);
// получаем исходный контейнер моделирования
    MsSource := mb.ItemById("MS_SOURCE");
// создаем объект, который будет копировать контейнеры
    Copier := New MsModelSpaceCopier.Create;
// задаем исходный и результирующий контейреры  
    Copier.DestinationModelSpace := MsDest;
    Copier.SourceModelSpace := MsSource;
// задаем параметры копирования 
    Copier.WithObjects := True;
    Copier.WithObjectsData := False;
// выполняем копирование    
    Copier.Copy;
    Debug.WriteLine("Контейнер '" + MsSource.Name +
        "' скопирован в контейнер '" + MsDest.Name + "' с объектами, но без данных");
End Sub UserProc;