Копирование features внутри сборки

[Gringo]

Каким образом,с помощью VB скрипта, можно корректно внутри сборки скопировать features - такие как Pad и т.д, выбранные пользователем, из одного парта в другой, чтобы в нем получить Body with Link c сохранением позиционирования? Классический программный Copy/Past внутри сборки выдает ошибку. Нужны хотя бы наметки на решение. Заранее благодарю.

[Wireless_Fidelity]

Здравствуйте.

VB скрипты в большинстве случаев предназначены для автоматизации имеющихся возможностей, но не для реализации нового функционала. В данном случае графический интерфейс CATIA позволяет скопировать и вставить фичу в другой документ только с опцией "As specified in Part document". Если это устраивает, то следует воспользоваться методом PasteSpecial класса Selection:

Код: Выделить всё

' получение объекта Selection для активного документа (сборки из нескольких деталей)
Dim objSelection as Selection
Set objSelection = CATIA.ActiveDocument.Selection

' определение копируемой фичи
Dim objFeatureToCopy as Feature
'...

' определение детали, в которую нужно вставить фичу
Dim objTargetPart as Part
'...

' копирование в буфер
objSelection.Clear
objSelection.Add objFeatureToCopy
objSelection.Copy

' вставка (Paste special, "As specified in part document")
objSelection.Clear
objSelection.Add objTargetPart
objSelection.PasteSpecial "CATPrtCont"

;