Autor
|
Thema: Catia Teil als step abspeichern (1087 / mal gelesen)
|
stefan451 Mitglied
Beiträge: 51 Registriert: 24.11.2017 PTC Creo Modeling/Annotation 19.0 PTC Creo 5.0 Catia V5R19
|
erstellt am: 17. Apr. 2020 11:40 <-- editieren / zitieren --> Unities abgeben:
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 17. Apr. 2020 11:52 <-- editieren / zitieren --> Unities abgeben: Nur für stefan451
Servus Schon mal mit dem Makrorekorder probiert einen Einstiegspunkt für dein Makro zu bekommen? Code: Sub CATMain()Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument partDocument1.ExportData "D:\TestPart.stp", "stp" End Sub
Viel Spaß beim anpassen des Codes (zB Pfad und Dateiname aus dem Dokument übernehmen usw) Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stefan451 Mitglied
Beiträge: 51 Registriert: 24.11.2017 PTC Creo Modeling/Annotation 19.0 PTC Creo 5.0 Catia V5R19
|
erstellt am: 20. Apr. 2020 12:59 <-- editieren / zitieren --> Unities abgeben:
Danke für die Hilfe, hat funktioniert. Falls noch jemand das Makro benötigt: Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument DocName =partDocument1.Name DocPath = partDocument1.Path StpPath = DocPath & "\" & Left(DocName, Len(DocName) - 8) & ".stp" partDocument1.ExportData StpPath, "stp" End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Lionel Hutz Mitglied
Beiträge: 363 Registriert: 26.03.2014 CATIA V5 R20
|
erstellt am: 20. Apr. 2020 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für stefan451
Die Dateiendung muss nicht im Namen nicht enthalten sein. Code: Sub CATMain()Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument DocName =partDocument1.Name DocPath = partDocument1.Path StpPath = DocPath & "\" & Left(DocName, Len(DocName) - 8) On Error resume Next partDocument1.ExportData StpPath, "stp" partDocument1.ExportData StpPath, "3dxml" End Sub
Das hat den Vorteil, dass du weitere Formate mit exportieren kannst, ohne den Dateinamen neu generieren zu müssen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |