Fire Notification After Adding a Mate Example (VBA)

This example shows how to fire a post-notify event when adding mates:

'----------------------------------------------------------
' Preconditions:
' 1. Verify that the specified assembly to open exists.
' 2. Copy Main to the main module.
' 3. Click Insert > Class Module and copy Class to that
'    module.
' 4. Open the Immediate window.
'
' Postconditions:
' 1. Opens the assembly.
' 2. Interactively add a mate between two entities
'    (click Insert > Mate). For example, add a lock mate
'    between the plate and cup.
' 3. Adds a mate between the selected entities.
' 4. Examine the Immediate window.
'
' NOTE: Because this assembly is used elsewhere, do not save
' changes.
'----------------------------------------------------------
'Main
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swAssemblyDoc As SldWorks.AssemblyDoc
Dim errorstatus As Long, warningstatus As Long
Dim swAssemblyDocEvents As Class1

Sub main()

    Set swApp = Application.SldWorks
    swApp.OpenDoc6 "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\api\toaster_scene.sldasm", swDocASSEMBLY, swOpenDocOptions_Silent, "", errorstatus, warningstatus
    Set swModel = swApp.ActiveDoc
    Set swAssemblyDoc = swModel
    

    ' Set up event
    Set swAssemblyDocEvents = New Class1
    Set swAssemblyDocEvents.swAssemblyDoc = swApp.ActiveDoc

End Sub

'Class

Option Explicit

Public WithEvents swAssemblyDoc As SldWorks.AssemblyDoc

Private Function swAssemblyDoc_AddMatePostNotify() As Long
    Debug.Print "A mate was added to the assembly."
End Function