---

Hallo Leute!

ich möchte den standard dialog beim anlegen eines bauteil aus einer baugruppe heraus abfangen und glaube das das über den Event "OnAssemblyChanged" inkl richtiger "Nachbehandlung" möglich ist!?

a) geht das so? (eure erfahrung)

b) wie kann ich diesen Tollen event richtig in ein VB-DLL Projekt einbauen?

bitte um eure hilfe

grüsse peter

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

---

Das geht ungefähr so:
Du machst ein Formular. Im Code vom Formular kannst Du dann die verschiedenen Events definieren.

Zuerst die Event-Definition

Private WithEvents oFileevents As FileUIEvents
Private WithEvents oDocumentEvents As DocumentEvents

Dann die Initialisierung:
Private Sub Form_Initialize()
Set Inv_App = GetObject(, "Inventor.application")
Set oFileevents = Inv_App.FileUIEvents
Set Inv_Doc = Inv_App.ActiveDocument
Set oDocumentEvents = Inv_Doc.DocumentEvents
....

Dann die Events:
***************
Private Sub oDocumentevents_OnClose(ByVal BeforeOrAfter As inventor.EventTimingEnum, ByVal Context As inventor.NameValueMap, HandlingCode As inventor.HandlingCodeEnum)
    End
End Sub
*****************

oder

******************
Private Sub oDocumentEvents_OnChange(ReasonsForChange As Long, ByVal BeforeOrAfter As inventor.EventTimingEnum, ByVal Context As inventor.NameValueMap, HandlingCode As inventor.HandlingCodeEnum)

.........

Achtung: Wenn Du im Event oDocumentEvents_OnChange was am Dokument änderst, kriegst Du einen rekursiven Aufruf vom Event - da mußt Du aufpassen, ich hab da bald mal die Übersicht verloren am Anfang.

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