Undo Hidden Component and Fire Undo Post-Notify Event Example (VB.NET)
This example demonstrates firing an undo post-notification event in
an assembly document.
'
--------------------------------------------------------------------------
' Preconditions: Open:
' <SolidWorks_install_dir>\samples\tutorial\smartcomponents\stepped_shaft.sldasm.
'
' The
base-plate<1> component is selected and then hidden. The latter
' action
is then undone and a post-notification
' event
is fired indicating that an undo action has occurred.
'
' Postconditions: None
'
--------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System
Imports System.Collections
Imports System.Windows.Forms
Partial Class SolidWorksMacro
Public
WithEvents swAssemblyDoc As AssemblyDoc
Public
Sub main()
Dim
swModel As ModelDoc2
Dim
swModelDocExt As ModelDocExtension
Dim
boolstatus As Boolean
Dim
openAssembly As Hashtable
swModel
= swApp.ActiveDoc
swModelDocExt
= swModel.Extension
'
Event notification
swAssemblyDoc
= swModel
openAssembly
= New Hashtable
AttachEventHandlers()
'
Select a component and hide it
boolstatus
= swModelDocExt.SelectByID2("base_plate-1@stepped_shaft",
"COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
swModel.HideComponent2()
swModel.ClearSelection2(True)
'
Undo hiding of the component
swModel.EditUndo2(1)
'
Post notification fired
'
Rebuild the model
swModel.ForceRebuild3(True)
End
Sub
Sub
AttachEventHandlers()
AttachSWEvents()
End
Sub
Sub
AttachSWEvents()
AddHandler
swAssemblyDoc.UndoPostNotify, AddressOf Me.swAssembly_UndoPostNotify
End
Sub
Private
Function swAssembly_UndoPostNotify()
As Integer
'Display
message after undo event occurs
MsgBox("An
undo post-notification event has been fired.")
End
Function
'''
<summary>
'''
The SldWorks swApp variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End Class