Servus
An den Dateinamen kommst du über Name des Documents, an den Namen des Körpers über Name des Body. zB (CATScript):
Code:
Sub CATMain()
Dim oPartDocument as PartDocument
Dim oBody as BodySet oPartDocument = Catia.ActiveDocument
Set oBody = oPartDocument.Part.Bodies.Item("Körper.1")
oBody.Name = oPartDocument.Name
End Sub
Jetzt noch Fehlerbehandlungen einbauen, eventuell die Dateierweiterung abscheiden, ...
Gruß
Bernd
------------------
Warum einfach, wenn es auch kompliziert geht.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP