Копирование всех объектов чертежа во фрагмент

[feuer628]

Здравствуйте! поделитесь знаниями, пожалуйста)
Хочу все геометрические объекты из чертежа (линии, окружности, дуги и тд) скопировать во фрагмент.

получаю все нужные объекты

Код Выделить Развернуть

IDrawingContainer = kompas_api7_module.IDrawingContainer(IView)
IDrawingContainer.Objects(0)

и вот теперь их нужно вставить во фрагмент...

подобным образом линия добавляется...

Код Выделить Развернуть

fragment = Documents.AddWithDefaultSettings(kompas6_constants.ksDocumentFragment, True)
iDocument2D = kompas_object.ActiveDocument2D()
iDocument2D.ksLineSeg(0, 0, 200, 200, 1)

но очень уж сложно все объекты/все типы перебирать и добавлять их подобным образом...

Наверняка есть более удобный способ...

Пробовал так:

Код Выделить Развернуть

iDocument2D.ksCopyObj(IDrawingContainer.Objects(0)[0], 0,0,0,0,1,0)

но компас требует указатель на объект.
Может знаете как получить указатель на объект (IDrawingContainer.Objects(0)[0] (ILineSegment), например)?

Либо любой другой способ избавиться от штампа на чертеже)
Заранее спасибо!

[lavgirb]

Либо любой другой способ избавиться от штампа на чертеже)

А просто в чертеже удалить основную надпись не пробовали?

[p3452]

Оформление -> Очистить = исчезнет и рамка и штамп.

Черех API - аналогично...

[feuer628]

Спасибо за указание в правильное направление!

решил так:

Код Выделить Развернуть

    LayoutSheets = kompas_document.LayoutSheets
    ILayoutSheet = LayoutSheets.Item(0)
    ILayoutSheet.LayoutStyleNumber = 15
    ILayoutSheet.Update()
Имя библиотеки (ILayoutSheet.LayoutLibraryFileName) -  'C:\\Program Files\\ASCON\\KOMPAS-3D v21\\Sys\\graphic.lyt'