Force Model Rebuild Example (VBA)
This example shows how to force a rebuild of a model.
'-------------------------------------------------------------
'
' Preconditions: Model document is open.
'
' Postconditions: Model is rebuilt.
'
'--------------------------------------------------------------
Option Explicit
Public Enum swUserPreferenceIntegerValue_e
swAutoSaveInterval
= 3
End Enum
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
nStart As
Single
Dim
i As
Long
Dim
bRet As
Boolean
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
'
Turn off automatic save
bRet
= swApp.SetUserPreferenceIntegerValue(swAutoSaveInterval,
0)
nStart
= Timer
bRet
= swModel.ForceRebuild3(False)
Debug.Print
"File = " + swModel.GetPathName
Debug.Print
" Time
=
" & Timer - nStart & " s"
End Sub
'-------------------------------------------------------------