---

Hallo Zusammen!

Ich hab ein (hoffentlich) kleines VBA Problemchen:

Wie kann ich feststellen wann Inventor eine Zeichnung komplett(!) fertig geladen hat? Also auch BackAHL.exe fertig ist etc.

Ich hab schon gedacht, man könnte einfach irgendeine Funktion aufrufen, aber da ist ja noch BackAHL. Und nicht mal Inventor ist ganz fertig, da wird diese weitere Funktion schon ausgeführt!

Hat irgendjemand da ne Idee?

Die Eigenschaft ActiveDocoment wird leider auch gleich bei Beginn gesetzt, geht also auch nicht.

Bin für alles Dankbar!

------------------
--------
MfG,
Christian H.

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

---

Hallo Christian,

ich bin mir nicht sicher, ob es das ist, was Du suchst, aber kopier mal diesen hier in Dein ThisDocument Deier Zeichnung, dann sichern, schliessen und wieder oeffnen:

Public WithEvents oAE As ApplicationEvents

Public Sub AutoOpen_Test()
   
  Set oAE = ThisApplication.ApplicationEvents
 
End Sub

Private Sub oAE_OnOpenDocument(ByVal DocumentObject As Document, ByVal FullFileName As String, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)

  If BeforeOrAfter = kBefore Then
    MsgBox "VOR dem öffnen"
  End If
 
  If BeforeOrAfter = kAfter Then
    MsgBox "NACH dem öffnen"
  End If

End Sub

Vielleicht hilfts...

Gruesse,

Paul
www.morecam.ch/cad.htm

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

---

Zitat:

---

Original erstellt von PaulSchuepbach:
ich bin mir nicht sicher, ob es das ist, was Du suchst, aber kopier mal diesen hier in Dein ThisDocument Deier Zeichnung, dann sichern, schliessen und wieder oeffnen:

---

Hallo Paul!

Herzlichen Dank! Ich denke mal das sollte funktionieren! Prima!

Allerdings hab ich grad noch ne andere Lösung gefunden:

  Set ActDrgDoc = ThisApplication.ActiveDocument
  Do
    Wait 0.5
  Loop Until ActDrgDoc.ActiveSheet.Status = kUpToDateDrawingSheet

Funktioniert - zumindest bis jetzt - sehr gut und hat für mich noch den Vorteil, das es auch beim Umschalten auf ein anderes Blatt seine Arbeit verrichtet.

Aber wenn ich damit noch Schwierigkeiten krieg, werd ich mal Deine Lösung testen.

Herzlichen Dank für die Hilfe!

------------------
--------
MfG,
Christian H.

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

---

Hallo Paul,
bin bei meinem Problem über diese Antwort gestolpert.
Dieser Code hat mir weitergeholfen.
Jedoch ist dieser Weg etwas umständlich, weil dieser
Code im Dokumentprojekt stehen muß.
Kann ich diese Funktion auch allgemein in das
Anwendungsprojekt schreiben, so daß wenn ein Dokument
geöffnet wird dieser ausgeführt wird ?
(Ich habe vor, daß immer wenn eine .idw geöffnet wird
deren DisplayName abgefragt wird.)

Vielen Dank!

Zitat:

---

Original erstellt von PaulSchuepbach:
Hallo Christian,

ich bin mir nicht sicher, ob es das ist, was Du suchst, aber kopier mal diesen hier in Dein ThisDocument Deier Zeichnung, dann sichern, schliessen und wieder oeffnen:

Public WithEvents oAE As ApplicationEvents

Public Sub AutoOpen_Test()
   
  Set oAE = ThisApplication.ApplicationEvents
 
End Sub

Private Sub oAE_OnOpenDocument(ByVal DocumentObject As Document, ByVal FullFileName As String, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)

  If BeforeOrAfter = kBefore Then
    MsgBox "VOR dem öffnen"
  End If
  
  If BeforeOrAfter = kAfter Then
    MsgBox "NACH dem öffnen"
  End If

End Sub

Vielleicht hilfts...

Gruesse,

Paul
www.morecam.ch/cad.htm

---

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