Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  CATIA.FileSelectionBox wirft Automation error

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  CATIA.FileSelectionBox wirft Automation error (944 mal gelesen)
Toube1994
Mitglied
Konstrukteur Vorrichtungsbau


Sehen Sie sich das Profil von Toube1994 an!   Senden Sie eine Private Message an Toube1994  Schreiben Sie einen Gästebucheintrag für Toube1994

Beiträge: 22
Registriert: 23.01.2018

erstellt am: 16. Apr. 2018 07:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 16. Apr. 2018 08:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Toube1994 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Toube1994 an!   Senden Sie eine Private Message an Toube1994  Schreiben Sie einen Gästebucheintrag für Toube1994

Beiträge: 22
Registriert: 23.01.2018

erstellt am: 16. Apr. 2018 08:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


2018-04-1608_43_42-MicrosoftVisualBasic.jpg

 
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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 16. Apr. 2018 08:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Toube1994 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Toube1994 an!   Senden Sie eine Private Message an Toube1994  Schreiben Sie einen Gästebucheintrag für Toube1994

Beiträge: 22
Registriert: 23.01.2018

erstellt am: 16. Apr. 2018 09:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich verwende VBA statt CATScript. Hab leider keine Möglichkeit CATScript zu erzeugen und es zu testen.
2. Vorschlag mit Zähler angeben funtioniert ebenfalls nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz