Fire Notification When Inserting a Table in a Part Document Example (VBA)
This example shows how to fire a notification when a table is added to a part document:
Main module
'---------------------------------------------------------------
' Preconditions:
' 1. Open a part document.
' 2. Run this macro (press F5).
' 3. Select Insert > Tables > Bill of Materials.
' 4. Click the green check mark on the Bill of
Materials PropertyManager page.
'
' Postconditions:
' 1. A message box informs you that a table will be inserted in the part.
' 2. Click OK to close the message box.
' 3. Click somewhere in the part view to place the
table.
'---------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim errorstatus As Long, warningstatus As Long
Dim swPartEvents As Class1
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
'Set up events
Set swPart = swModel
Set swPartEvents = New Class1
Set swPartEvents.swPart = swApp.ActiveDoc
End Sub
Class module
Option Explicit
Public WithEvents swPart As SldWorks.PartDoc
Private Function swPart_InsertTableNotify(ByVal
TableAnnotation As SldWorks.ITableAnnotation, ByVal TableType As Long, ByVal
TemplatePath As String) As Long
MsgBox "A table will be inserted. Title: " & TableAnnotation.Title & ", Type: "
& TableType & ", and Template path: " & TemplatePath
End Function