Suspend Automatic Rebuilds of an Assembly Example (VBA)

This example shows how to suspend automatic rebuilds of an assembly.

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

'

' Preoconditions: Assembly document is open.

'

' Postconditions: Automatic rebuilds of the assembly are disabled.

'

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

Option Explicit

Sub main()

Dim swApp As SldWorks.SldWorks

Dim Doc As SldWorks.ModelDoc2

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Set swApp = Application.SldWorks

Set Doc = swApp.ActiveDoc

Dim Assem As SldWorks.AssemblyDoc

Set Assem = Doc

Debug.print "*** False = rebuilds enabled; True = rebuilds suspended ***"

' Get current state

boolstatus = Assem.EnableAssemblyRebuild

Debug.Print "State before running macro = " + CStr(Assem.EnableAssemblyRebuild)

' Suspend automatic rebuilds of the assembly

Assem.EnableAssemblyRebuild = Not boolstatus

Debug.Print "State after running macro  = " + CStr(Assem.EnableAssemblyRebuild)

End Sub