Auch wenn ich Kne Recht geben muss und auch selber die Fragesteller ermuntere, mal selber den ersten Stein zu setzen:
Ich hatte es bei mir herumliegen:
Sub CATMain()
Dim MyPart As Part
Set MyPart = CATIA.ActiveDocument.Part
Dim MyBodies As Bodies
Set MyBodies = MyPart.Bodies
Dim MyBodyToExport As Body
Dim MyBodiesListText As String
MyBodiesListText = ""
Dim I As Integer
For I = 1 To MyBodies.Count
Set MyBodyToExport = MyBodies.Item(I)
MyBodiesListText = MyBodiesListText & MyBodyToExport.Name & vbLf
Next
'MsgBox MyBodiesListText 'Remove first sign if you want to show a message while script runs
Set oFileSys = CATIA.FileSystem
sFileSeparator = oFileSys.FileSeparator
Dim Path As String
Path = "C:" 'Here you can key in another path name if necessary
Dim OutputFilename As String
OutputFilename = "My_Body_List" 'Here you can key in another file name if necessary
Dim Output_pathandfilename As String
Output_pathandfilename = Path & sFileSeparator & OutputFilename & ".txt"
Set basics_out = oFileSys.CreateFile(Output_pathandfilename, 1)
Set basics_stream = basics_out.OpenAsTextStream("ForWriting")
basics_stream.Write MyBodiesListText
basics_stream.Close
MsgBox "Done. Please look in file " & Output_pathandfilename
End Sub
Einfach den Code in ein Textfile packen und die Extension von .txt auf .CATScript ändern. Dann kannst du es mit einem Doppelklick im Explorerfenster starten. Dein Teil sollte als Einzelteil im aktiven Fenster in CATIA vorliegen. Diese "Arbeit" lasse ich dir ;-)
------------------
Grüße aus dem Thurgau
Thomas
+++++++++++++++++++++++++++++++++
CATIA - eine Laune der Natur ...
[Diese Nachricht wurde von tberger am 01. Jul. 2011 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
