---

Moin,
ich möchte auf das Ereignis OnSaveDocument reagieren.
Leider verstehe ich noch nicht ganz das Beispiel, wie ich es zum laufen bringen kann; hat da jemand einen Tipp?

OnSaveDocument(
DocumentObject As Document,
BeforeOrAfter As EventTimingEnum,
Context As NameValueMap,
HandlingCode As HandlingCodeEnum)

Steckt hinter ApplicationEvents.OnSaveDocument

------------------
Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt!

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

---

Hallo Arpi,

willst Du in VB oder VBA auf das Druecken von 'Speichern' reagieren ?

Falls VBA: suchst Du da nicht eher 'AutoSave' ???

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo nochmals,

in VB sieht's so aus:

Deklariere im allgemeinen Teil den ApplicationEvent

Private WithEvents oAE As Inventor.ApplicationEvents

spaeter dann, z.B. in Form_Load() (wobei oApp das IV-Application-Objekt ist):

...
Set oAE = oApp.ApplicationEvents

In Deiner VB-Entwicklungsungebung hast Du nun im Objektkatalog (Combo-Box oben links) das Objekt 'oAE' und in der Prozedurenliste (Combo oben rechts) hast Du nun die verschiedenen Events u.A. auch den 'OnSaveDocument' Event. Wenn Du diesen anwaehlst, fuegt Dir VB folgende Zeilen in Deinen Code ein:

Private Sub oAE_OnSaveDocument(ByVal DocumentObject As Inventor.Document, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, HandlingCode As Inventor.HandlingCodeEnum)

End Sub

wobei in der Variable 'DocumentObject' eben das IV-DocumentObject uebergeben wird, als naechstes unter 'BeforeOrAfter' ein Enum, das Du folgendermassen einsetzen kannst:

Private Sub oAE_OnSaveDocument(ByVal DocumentObject As Inventor.Document, ByVal BeforeOrAfter As Inventor.EventTimingEnum, ByVal Context As Inventor.NameValueMap, HandlingCode As Inventor.HandlingCodeEnum)
 
  if BeforeOrAfter = kBefore Then
    ' alles hier wird VOR dem Speichervorgang ausgefuehrt
    MsgBox "VOR den Speichern"
  else
    ' alles hier wird NACH dem Speichervorgang ausgefuehrt
    MsgBox "NACH den Speichern"
  endif

End Sub

Alles klar ?

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Alles klar, Super - vielen Dank.
Hast mir damit sehr geholfen - Prog ist schon produktiv.

------------------
Tata
Rainer

Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt!

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