こちら気になったのでササッと作ってみました。 Copy Parameters from product to part - DASSAULT: CATIA products - Eng-Tips 'catvba Sub CATMain() 'copy Dim copyDoc As PartDocument Set copyDoc = CATIA.Documents.Item("Part1.CATPart") Dim copySel…