creation d'un corps principal "Vis" dans une part.

Sub CATMain()
dim mybodies
set mybodies=catia.activedocument.part.bodies
dim vis
set vis = mybodies.add
vis.name="Vis"
End Sub