---

Hallo Forumuser,

kann man irgendwie Events abfangen also z.b. den Speichern Event, ohne in jede einzelne Datei ein Macro schreiben zu müssen?

Also im Anwendungsprojekt nicht im Dokumentprojekt?

MfG Thomas

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

---

Hallo Tom,

das geht mit einem Klassenmodul.

Public WithEvents oAE As ApplicationEvents
Public oapp As Application

Public Sub Class_Initialize()
Set oapp = ThisApplication
Set oAE = oapp.ApplicationEvents

End Sub

Public Sub oAE_OnSaveDocument(ByVal odoc As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)

xxxxxxxxxx

end sub

Einziges Problem dabei ist das Initialisieren, das muß angestoßen werden, z.B. per Button. Nach Fehlern muß das Initialisieren evtl nochmal gemacht werden.

Ein Add-In, das beim Speichern eine bestimmtes Modul im Anwendugnsprojekt aufruft wäre da eine gute Lösung.

Gruß
Reinhard

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

---

Hallo Reinhard,

ich würde das was Tom frägt auch gerne realisiren, aber ich verstehe Deine Erklärung nicht ganz.

Ich habe eine Subroutine, die ich ausführen möchte, sobald ein neues Dokument erstellt wird. Dies soll unabhänglg vom Dokument sein - muss also ins Anwendungsprojekt.

Ich habe mir ein neues Klassenmodul erstellt mit folgendem Inhalt:

Public WithEvents oAE As ApplicationEvents
Public oapp As Application

Public Sub Class_Initialize()
    Set oapp = ThisApplication
    Set oAE = oapp.ApplicationEvents
End Sub

Public Sub oAE_OnNewDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum)
   
    MsgBox ("Hello")

End Sub

______________________________________

Nur frage ich mich, wie nun die Methode "OnNewDocument" mit Applikation "Inventor" kommuniziert?

Ich habe mir eine kleine Sub geschrieben, die die Methode "Class_Initialize()" aufruft, um zu testen ob hier der Zusammenhang ist. => Hat aber nicht funktioniert.

Wie schreibe ich also meine Funktion, sodass diese beim erstellen eines neuen Dokumentes abgearbeitet wird? Oder geht das wirklich nur mit einem AddIn?

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

---

Also bei mir gehts.

Code:

---

Private myClass As EventClass

Public Sub EventStart()
Set myClass = New EventClass
End Sub

---

in ein normales Modul und mit einem Button auf die Oberfläche ziehen.
Wenn du das Modul aufrufst und danach ein neus Dokument ertellst, sollte dein "Hellol World" erscheinen.

Gruß
Reinhard

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

---

Hallo Reinhard,

kann man das ganze irgendwie automatisieren, das der button z.B. beim Start von Inventor automatisch gedrückt wird?

MfG
Thomas

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

---

Hallo Reinhard,

mein Code sieht nun so aus:

Modul1:

Private myClass As EventClass

Public Sub EventStart()
    Set myClass = New EventClass
End Sub
______________________

Klassenmodul EventClass:
Public WithEvents oAE As ApplicationEvents
Public oapp As Application

Public Sub Class_Initialize()
    Set oapp = ThisApplication
    Set oAE = oapp.ApplicationEvents
End Sub

Public Sub oAE_OnNewDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum)
 
    MsgBox ("Hello")

End Sub
_______________________

Das Makro "EventStart" habe ich mir als Button in die Toolbar gezogen.
Beim drücken wird auch die Klasse initialisiert. Wenn ich direkt im Code bin, werden beim Debuggen auch die Instanzen lokal angezeigt.
Der Überwachungsbereich jedoch sagt zu jeder Zeit, er würde "myClass" nicht kennen. (auch wenn ich myClass als public deklariere nicht)
Funktioniert also leider noch nicht. Fehlt mir noch was?

Ich schätze, ich muss den Code wohl doch in ein Dokumentprojekt und dort in jedes Template schreiben...

Danke für Deine Antworten!

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

---

Zitat:

---

Original erstellt von ccKeyLargo:
Ich schätze, ich muss den Code wohl doch in ein Dokumentprojekt und dort in jedes Template schreiben...

---

Das würde ich nicht tun. Es kann leicht Ärger bei der Migration von Daten geben.

------------------
Grüße Igor

FX64 Software Solutions
HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60

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

---

Hallo Igor,

wie würdest du das dann machen?

MfG
Thomas

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

---

Nicht mit VBA. Ein AddIn wäre da das Richtige. Aber das wurde schon gesagt.

------------------
Grüße Igor

FX64 Software Solutions
HMI ~ 16.-20. April 2007 ~ CAD.de Halle 17, Stand F60

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

---

Hallo,

ich muss meine Aussage von vorhin korrigieren.
Der Event wird ausgelöst. Mein Fehler war, dass ich vor der Deklaration von "myClass" noch eine andere Sub stehen hatte.
Der Compiler hat mich nicht gewarnt, also dachte ich, es sei egal.

Beispiel von oben funktioniert also!!!

=>Zu dem eigentlichen Problem: Ja, dann wird wohl wiedermal ein AddIn das cleverste sein...
Danke für die Antworten!

Eigentlich bin ich mit meinem eigentlichen Problem nun ganz schön weit abgedrifftet. Ich möchte eigentlich nur, dass automatisch beim erstellen eines neuen Projektes die Inhaltscenter Dateien im Projektpfad abgelegt werden.
Es würde mir auch genügen, einen Eintrag bei den "Standard Inhaltscenter Dateien" zu machen, aber das klappt nicht wenn dort nur als Pfad steht: ".\ContentCenterFiles". Inventor ändert es dann in "\.\ContentCenterFiles" und speichert die Inhaltscenterdateien unter "Eigene Dateien" und nicht im Projektlaufwerk.

Also muss ich das wohl mit meinem Code ändern und dafür ein AddIn erstellen....
Oder hat jemand eine andere Idee?

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