ClassModule.vb

'Class module:

'Option Explicit

'Public WithEvents SeFrameEvent As SolidEdgeFramework.ApplicationEvents 'Declare the public events watcher

'Private pSeCommandComplete As Boolean

'Private Sub Class_Initialize()

'  Set SeFrameEvent = GetObject(, "SolidEdge.Application") 'Set the event handler to actual open SolidEdge session

'  pSeCommandComplete = False 'Set the command complete boolean to false (Be sure to wait for command to be run)

'End Sub

''When we set the function to nothing

'Private Sub Class_Terminate()

'  Set SeFrameEvent = Nothing

'End Sub

'Private Sub SeFrameEvent_AfterCommandRun(ByVal AssemblyAssemblyToolsShowAll As Long)

'  pSeCommandComplete = True 'Be sure to exit the loop that is waiting for the command to be done.

'End Sub

''Send the value of the private bool

'Property Get SeCommandComplete() As Boolean

'  SeCommandComplete = pSeCommandComplete

'End Property

''Set the value of the private bool

'Property Let SeCommandComplete(Value As Boolean)

'  pSeCommandComplete = Value

'End Property

'Sub:

''Function to process a command and wait for it to be completed

'Function Fct_SeProcessCommand(CommandID As String, objSEFrame As SolidEdgeFramework.Application) As Boolean

'  Dim SeEventListener As SeEvents

'  Fct_SeProcessCommand = False 'Function failed

'  On Error Resume Next

'  Set SeEventListener = New SeEvents 'Set the event listener to know when command is over

'  Call objSEFrame.StartCommand(CommandID)

'  'Loop until the command is done

'  SeEventListener.SeCommandComplete = False

'  Do While SeEventListener.SeCommandComplete = False

'    DoEvents

'  Loop

'  Fct_SeProcessCommand = True 'Function succeed

'End Function