Скопировать парт и чертеж с него под новым именем

[Samir]

Здравствуйте всем.
Собственно, есть деталь. Есть на нее чертеж. Нужна эта же деталь и этот же чертеж - но под другими именами - в других файлах. То есть я хочу что-то отредактировать в этой детали (а старую оставить нетронутой), и не хочу заново создавать чертеж, а использовать существующий. Но в чертеже, даже если я копирую его с созданием нового файла, остаются линки на старый парт, а не на новый. Перелинковывать все виды... как-то это некошерно... Есть ли какой-то способ это сделать?

[Egor_K]

Попробуйте воспользоваться фичей File -> New from... , при выборе файлов укажите чертеж и деталь. Ссылки на деталь в чертеже поменяются на новые автоматом

[Samir]

Спасибо большое, Егор_К, все оказалось просто..

[Lancelot]

Если можно по шагам. Вначале надо выбирать NewFrom и файл чертежа? если выбирать part автоматической замены ссылок не происходит? или чего - то не так делаю?

[Egor_K]

Надо выбрать вместе чертеж и деталь. Зажимаете Ctrl и выбираете оба файла.

[Evgeniy_Zaytcev]

А есть ли возможность заменить ссылку на модель в чертеже? Например, есть деталь 1 и чертеж 1. Есть деталь 2, полученная из детали 1 (например через команду new from), затем изменённая. Как можно создать новый чертёж из чертежа 1 и заменить ссылку в нём на деталь 2?

[[PTM]]

по идее можно в меню edit/links но размеры могут слететь

[Evgeniy_Zaytcev]

Пробовал, ругается((

The link refused the document.

[keeper]

john_zay , тогда надо не через команду new from, а простым копированием файла, чтобы инф-я парта были одинаковые, тогда и замена линка через edit/links должа заменить и обновить

[Evgeniy_Zaytcev]

Спасибо, так работает)

[[PTM]]

change the UUID

Link refused

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

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView

Dim viewLinks1 As DrawingViewGenerativeLinks
Set viewLinks1 = drawingView1.GenerativeLinks
viewLinks1.RemoveAllLinks

Dim partDocument1 As Document
Set partDocument1 = CATIA.Documents.Item("square.CATPart")

Dim viewBehavior As DrawingViewGenerativeBehavior
Set viewBehavior = drawingView1.GenerativeBehavior
viewBehavior.Document = partDocument1
viewBehavior.Update

End Sub

но размеры править заново...