Fire Notification When Inserting a Table in a Drawing Document Example (VBA)
This example shows how to fire a notification when a table is added to a
drawing document:
Main module
'---------------------------------------------------------------
' Preconditions:
' 1. Open a drawing document.
' 2. Run this macro (press F5).
' 3. Select a view.
' 4. Select Insert > Tables > Bill of Materials.
' 5. 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
drawing.
' 2. Click OK to close the message box.
' 3. Click somewhere on the drawing sheet to place
the table.
'---------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim errorstatus As Long, warningstatus As Long
Dim swDrawEvents As Class1
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
'Set up events
Set swDraw = swModel
Set swDrawEvents = New Class1
Set swDrawEvents.swDraw = swApp.ActiveDoc
End Sub
Class module
Option Explicit
Public WithEvents swDraw As SldWorks.DrawingDoc
Private Function swDraw_InsertTableNotify(ByVal
TableAnnotation As SldWorks.ITableAnnotation, ByVal TableType As String, ByVal
TemplatePath As String) As Long
MsgBox "A table will be inserted. Title: " & TableAnnotation.Title & ", Type: "
& TableType & ", and Template path: " & TemplatePath
End Function