| |
| KISTERS 3DViewStation: Mit 3D-Montageanleitungen werden Produkte bei der Fertigung lebendig, eine Pressemitteilung
|
Autor
|
Thema: CATIA.FileSelectionBox wirft Automation error (1019 / mal gelesen)
|
Toube1994 Mitglied Konstrukteur Vorrichtungsbau
Beiträge: 22 Registriert: 23.01.2018
|
erstellt am: 16. Apr. 2018 07:25 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen, ich möchte in meinem Makro einen "Datei Speichern unter" Dialog öffnen, jedoch erhalte ich jedes mal einen Automation Error. Anbei der Code: Code: Sub CATMain() If TypeName(CATIA.ActiveDocument) = "DrawingDocument" Then Dim currentSheet As DrawingSheet Set currentSheet = CATIA.ActiveDocument.Sheets.ActiveSheet Dim frontView As DrawingView Set frontView = currentSheet.Views.Item("Vorderansicht") Dim referenceDocument As Document Set referenceDocument = frontView.GenerativeBehavior.Document.Parent Dim activeDoc As DrawingDocument Set activeDoc = CATIA.ActiveDocument Dim pathSavedDoc pathSavedDoc = CATIA.FileSelectionBox("Datei Speichern unter", ".CATPart", CatFileSelectionModeSave) Else MsgBox "Keine Zeichnung aktiv", vbOKOnly, "Fehler" End If End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 12005 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 16. Apr. 2018 08:19 <-- editieren / zitieren --> Unities abgeben: Nur für Toube1994
Servus Wie lautet die Fehlermeldung? In welcher Zeile tritt der Fehler auf? Gibt es die Ansicht auf dem aktuellen Blatt? Ist diese auch von einem 3D-Dokument abgeleitet? Willst du die Drawing speichern? Warum hast du dann den Anzeigefilter ".CATPart" an? Du weißt das im Code noch die entsprechende Zeile zum speichern fehlt? Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Toube1994 Mitglied Konstrukteur Vorrichtungsbau
Beiträge: 22 Registriert: 23.01.2018
|
erstellt am: 16. Apr. 2018 08:46 <-- editieren / zitieren --> Unities abgeben:
Entschuldigung für die mangelhaften angaben. Fehlermeldung hänge ich als Bild an. Der Fehler tritt bei folgender Zeile auf
Code: pathSavedDoc = CATIA.FileSelectionBox("Datei Speichern unter", ".CATPart", CatFileSelectionModeSave)
Ja es ist eine Ansicht auf dem Dokument vorhanden und ja es ist ein Part drin. Der Filter ist noch drin weil ich für Testzwecken einen Beispielcode aus dem Internetn kopiert hatte. Ja das ist mir bewusst, bin ja auch noch nicht soweit. Die Info was das Makro später machen können soll, sollte einfach nur kurzes Hintergrundwissen sein. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 12005 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 16. Apr. 2018 08:56 <-- editieren / zitieren --> Unities abgeben: Nur für Toube1994
Servus Hast du entsprechenden Referenzen in VBA aktiviert? (als CATScript läuft dein Code bei mir) ggf mal probieren statt CatFileSelectionModeSave hier den Zähler anzugeben (hier 1) Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Toube1994 Mitglied Konstrukteur Vorrichtungsbau
Beiträge: 22 Registriert: 23.01.2018
|
erstellt am: 16. Apr. 2018 09:46 <-- editieren / zitieren --> Unities abgeben:
|