Здравствуйте.
Какая реализация интересует: Automation (VB) или CAA/RADE?
В Automation задачу можно решить копированием детали (part'а) методами объекта класса
Selection, причём копировать можно сразу Product2:
- Код: Выделить всё
' получение доступа к объекту Selection
Dim objSelection as Selection
Set objSelection = CATIA.ActiveDocument.Selection
' получение корневого продукта
Dim prdRoot as Product
Set prdRoot = CATIA.ActiveDocument.Product
' доступ к изделию по имени
Dim prdProduct2 as Product
Set prdProduct2 = prdRoot.Products.Item("Product2")
' копирование изделия в буфер
objSelection.Clear
objSelection.Add prdProduct2
objSelection.Copy
' получение доступа к продукту, в который необходимо вставить скопированное
Dim prdRoot2 as Product
' Set prdRoot2 = ... неки образом задаётся объект
' вставка
objSelection.Clear
objSelection.Add prdRoot2
objSeletcion.Paste