Dobrý den,

projděte si sekci Seriál CATIA, je tam spousta článků i s kódy.

Pro pojmenování PartBody bude kód (při otevřeném aktivním Partu):

Sub Main()

CATIA.ActiveDocument.Part.Bodies.Item(1).Name = CATIA.ActiveDocument.Part.Name

End Sub

U sestavy budete muset rekuryivně procházet jednotlivé instance a objekt Partu si vytvořit. Zbytek bude stejný.

Rekurze je určitě v článcích popsána i s kódem.

Pokud jde o main body tak kod který to udělá na všech načtených partech v catii je :
Kod ve VB.NET patří do visual studia :)

Sub Main()

        Dim CatiaApp As Application

        CatiaApp = GetObject(, "CATIA.Application")

        For Each Doc As Document In CatiaApp.Documents

            If TypeOf Doc Is PartDocument Then

                Dim TempPartDoc As PartDocument = Doc

                TempPartDoc.Part.MainBody.Name = TempPartDoc.Part.Name

            End If

        Next

    End Sub