Set Blocking State Example (VBA)

This example shows how to set the blocking state for a model document.

'------------------------------------------------

'

' Preconditions: Model document is open.

'

' Postconditions: None

'

'------------------------------------------------

Public Enum swBlockingStates_e

    swNoBlock = &H0

    swFullBlock = &H1

    swModifyBlock = &H2

    swPartialModifyBlock = &H3

    swEditorBlock = &H4

End Enum

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim nResponse               As Integer

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    ' Get current blocking state

    Debug.Print "BlockingState = " & swModel.GetBlockingState

    'Ask user if blocking state should be reset to previous state

    nResponse = MsgBox("Reset blocking state?", vbYesNo)

    ' If user responds yes, then reset blocking state

    If nResponse = vbYes Then

        swModel.ResetBlockingState

    Else

    ' If use responds no, then set blocking state to

    ' allow changes to document

        swModel.SetBlockingState swPartialModifyBlock

    End If

End Sub

'----------------------------------------------------