Vielen Dank für den Tipp
habe jetzt so gemacht:
Sub main()
Dim productDocument1
Set productDocument1 = CATIA.ActiveDocument
Dim documents1
Set documents1 = CATIA.Documents
Dim partdocument1
Set partdocument1 = documents1.item("Ausgabe.CATPart")
partdocument1.Save
Set partdocument1 = documents1.NewFrom("C:\Temp\Ausgabe.CATPart")
partdocument1.SaveAs "C:\NewPart\part.CATPart"
End Sub
funktioniert zwar, gefählt mir aber noch nicht so richtig, gibt es da keine elegantere Lösung???
Gruß
Alex
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP