Fire Notification When Inserting a Table in a Drawing Document Example (VB.NET)
This example shows how to fire a notification when a table is added to a
drawing document.
'---------------------------------------------------------------
' Preconditions:
' 1. Open a drawing document.
' 2. Make sure that the Tools > Options > Stop VSTA debugger on
macro exit
' checkbox is not selected.
' 3. Run this macro (press F5).
' 4. Select a drawing view.
' 5. Select Insert > Tables > Bill of Materials.
' 6. 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.
' Look for the message box in the taskbar.
' 2. Click OK to close the message box.
' 3. Click somewhere on the drawing sheet to place the table.
' 4. Stop the debugger.
'---------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Imports
System.Diagnostics
Imports
System.Collections
Partial
Class
SolidWorksMacro
Public
WithEvents
swDrawingDoc As
DrawingDoc
Public
Sub
Main()
Dim
swModel As
ModelDoc2
'Dim openDraw As Hashtable
swModel = swApp.ActiveDoc
' Set up event
swDrawingDoc = swModel
'openDraw = New Hashtable
AttachEventHandlers()
End
Sub
Sub
AttachEventHandlers()
AttachSWEvents()
End
Sub
Sub
AttachSWEvents()
AddHandler
swDrawingDoc.InsertTableNotify,
AddressOf
Me.swDrawingDoc_InsertTableNotify
End
Sub
Private
Function
swDrawingDoc_InsertTableNotify(ByVal
TableAnnotation As
TableAnnotation, ByVal
TableType As
String,
ByVal
TemplatePath As
String)
As
Integer
MsgBox("A
table will be inserted. Title: " &
TableAnnotation.Title & ", Type: "
& TableType & ", and Template path: "
& TemplatePath)
End
Function
Public
swApp As
SldWorks
End
Class