Assembly Events for deleting WorkPoint / WorkPlane

[FINET_Laurent]

Dear all, bonjour. 

Here bellow one code snippeds that will fire an event when deleting an occurrence inside an assembly (with several cuts for clarity) : 

        Private WithEvents asmEvents As Inventor.AssemblyEvents

        Public Sub Activate(ByVal addInSiteObject As Inventor.ApplicationAddInSite, ByVal firstTime As Boolean) Implements Inventor.ApplicationAddInServer.Activate
            g_inventorApplication = addInSiteObject.Application
            asmEvents = g_inventorApplication.AssemblyEvents

        End Sub

        Private Sub asmEvents_OnDelete(ByVal DocumentObject As AssemblyDocument, ByVal Occurrence As ComponentOccurrence, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) Handles asmEvents.OnDelete
            MsgBox("Test")

        End Sub

 
It works fantastic, but that doesn't trigger when deleting work points or work planes, which seems normal to me. How could I achieve such behaviour, maybe using an other existing event that I'm not aware of ? 

Note that I would need to get the handles on that WorkPoint / WorkPlane that get deleted somehow.

Kind regards, 

FINET L.

[FINET_Laurent · Accepted solution]

Hellooooooo,

Got it thank you ❤️ 

        Private WithEvents _DocEvents As DocumentEvents

        Private Sub TestButton_OnExecute() Handles TestButton.OnExecute
            Dim doc As AssemblyDocument = g_inventorApplication.ActiveDocument
            _DocEvents = doc.DocumentEvents

        End Sub

        Private Sub test(ByVal Entity As Object, ByVal BeforeAfter As EventTimingEnum, ByVal Context As NameValueMap, ByRef HandlingCode As HandlingCodeEnum) Handles _DocEvents.OnDelete

            Dim WorkPoint As WorkPoint = Entity
            MsgBox(WorkPoint.Point.X)
        End Sub

Kind regards,

FINET L.

[mateusz_baczewski]

Hi, I just have a quick question—does such an event handler need to be implemented as an Inventor add-in?