---

Helau zusammen,

ich möchte ein AddIn erstellen, um die AutoMacros documentübergreifend ausführen zu können.

Hierzu habe ich mich am Code von "Mod the machine" orientiert
(Link: http://modthemachine.typepad.com/my_weblog/2008/10/converting-vba-auto-macros-to-an-add-in.html)

Leider erhalte ich beim "_OnSaveDocument ........ Handels m_appEvents.OnSaveDocument die Fehlermeldung
'Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.'

Mir ist auch aufgefallen, dass im VB Editor im linken PullDown Menu der Eintrag m_appEvents (ist als m_appEvents = m_inventorApplication.ApplicationEvents deklariert) fehlt.

kann mir jemand sagen woran das liegt?

Ach ja ich verwende VB 2008 Express aus dem VS 2008,
und hoffe ich bin hier richtig.

Herzlichen Dank schonmal
Rolli

------------------
-------------------
viele Grüsse
Rolli

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

---

Hallo

Den da

Code:

---

Private WithEvents m_appEvents As Inventor.ApplicationEvents

---

im StandardAddInServer vorhanden?

------------------
MfG
RK

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

---

Hallo,

wie kann ich das überprüfen?
Die Deklarationen sind jedenfalls gemacht, in der
StandardAddInServer.vb

Kann es daran liegen, dass ich noch mit Inventor 2008 arbeite (wird demnächst auf 2010 upgedatet).

ich poste morgen mal den Code der StandardAddInServer.vb

Gruß
Rolli

------------------
-------------------
viele Grüsse
Rolli

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

---

Hallo

Ich hab's eben überprüft und bin mir ziemlich sicher, daß du da vergessen hast die eine rote Zeile aus Brians Beispiel in dein Projekt zu übernehmen.
Wenn du deine StandardAddInServer.vb öffnest sollte dort stehen:

Code:

---

Imports Inventor
Imports System.Runtime.InteropServices
Imports Microsoft.Win32

Namespace InventorAddIn1
    <ProgIdAttribute("InventorAddIn1.StandardAddInServer"), GuidAttribute("ba59d4ab-2995-4cb8-9c68-7d397fdcb321")> Public Class StandardAddInServer
        Implements Inventor.ApplicationAddInServer

        ' Inventor application object.
        Private m_inventorApplication As Inventor.Application
        Private WithEvents m_appEvents As Inventor.ApplicationEvents

---

Prüf mal, ob die fette Zeile wirklich da steht.

Ich weiß nicht, ob es in der Expressversion auch verfügbar ist, aber unter Ansicht kann man sich die "Fehlerliste" einblenden. Dann sieht man beim Schreiben schon, wenn was fehlt. Mit einem Doppelklick auf den Fehler springt er auch gleich an die entsprechende Stelle im Code.

------------------
MfG
RK

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

---

Asche auf mein Haupt,

die Zeile war zwar da, jedoch hatte ich das WithEvents vergessen,
hab die falsche Zeile kopiert.

Gaaaaanz dickes Danke für deine Hilfe.

Ich hab nochmal ne Frage, die du sicher auch beantworten kannst.
Und zwar meldet er nach dem kompilieren 12 Fehler.
Der erste ist "ApplicationAddInServer" ist im Namespace "Inventor" nicht eindeutig.

An was könnte das liegen?

Gruß
Rolli

------------------
-------------------
viele Grüsse
Rolli

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

---

Hallo

Ich vermute es muß an irgendeiner Stelle in deinem Code

Code:

---

ApplicationAddInServer

---

durch

Code:

---

Inventor.ApplicationAddInServer

---

ergänzt werden. Das ist aber nur geraten.

------------------
MfG
RK

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

---

Hallo,

ich weiss nicht wirklich an was es nun gelegen hat,
aber ich hab mal alle Verweise gelöscht, und den Verweis
auf die Inventor Object Bib neu gesetzt und jetzt funzt es.

Nochmals herzlichen Dank für deine Mühen.
Die U's sind unterwegs.

------------------
-------------------
viele Grüsse
Rolli

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