Option Explicit
'
Sub CATMain()
'
Dim CatPart As Part, CatHybridBodies As HybridBodies, CatHybridBody As HybridBody, i As Integer
'
Set CatPart = CATIA.ActiveDocument.Part
Set CatHybridBodies = CatPart.HybridBodies
'
For i = 1 To 10
Set CatHybridBody = CatHybridBodies.Add()...