Load All External References Example (VBA)
This example shows how to specify to open all external references.
'----------------------------------------------
'
' Preconditions: None
'
' Postconditions: All external references set to open.
'
'----------------------------------------------
Option Explicit
Public Enum swLoadExternalReferences_e
swLoadExternalReferences_Prompt
= 0
swLoadExternalReferences_All
= 1
swLoadExternalReferences_None
= 2
swLoadExternalReferences_ChangedOnly
= 3
End Enum
Public Enum swUserPreferenceIntegerValue_e
swLoadExternalReferences
= 82
End Enum
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
bRet As
Boolean
Set
swApp = Application.SldWorks
'Get
current external references setting
Debug.Print
"LoadExternalReferences = " & swApp.GetUserPreferenceIntegerValue(swLoadExternalReferences)
'
Open all external references for part, document, and drawing documents
bRet
= swApp.SetUserPreferenceIntegerValue(swLoadExternalReferences,
swLoadExternalReferences_All): Debug.Assert bRet
'
Get new external references setting
Debug.Print
"LoadExternalReferences = " & swApp.GetUserPreferenceIntegerValue(swLoadExternalReferences)
End Sub
'----------------------------------------