CATIA 二次開發特殊粘貼的VB代碼

'進入CATIA界面****************

Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument

'進入part1界面****************

Dim part1 As Part

Set part1 = partDocument1.Part

'初始化選擇****************

Dim selection1 As Selection

Set selection1 = partDocument1.Selection

selection1.Clear

'定義幾何圖形集（任意）****************

Dim hybridBodies1 As HybridBodies

Set hybridBodies1 = part1.HybridBodies

'創建幾何圖形集（特定）****************

Dim hybridBody1 As HybridBody

'Set hybridBody1 = hybridBodies1.Add()

'幾何圖形集（對接）****************

Set hybridBody1 = hybridBodies1.Item("幾何圖形集.1")

Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeLinePtPt1 As HybridShapeLinePtPt

Set hybridShapeLinePtPt1 = hybridShapes1.Item("直線.4")

selection1.Add hybridShapeLinePtPt1

'選擇復制****************

selection1.Copy

'選擇粘貼****************

selection1.PasteSpecial ("CATPrtResultWithOutLink")

'選擇釋放****************

selection1.Clear

part1.Update

End Sub