Option Explicit
Sub Example()
Dim objApplication As SolidEdgeFramework.Application
Dim objTCE As SolidEdgeFramework.SolidEdgeTCE
Dim PreferenceInfo(1, 1) As Object
Dim PreferenceValue As Object
Set objApplication = GetObject(, "SolidEdge.Application")
Set objTCE = objApplication.SolidEdgeTCE
'Example takes two preference names
PreferenceInfo(0, 0) = "TC_Allow_Longer_ID_Name"
PreferenceInfo(1, 0) = "SEEC_BOM_Synchronize"
Call objTCE.GetSEECOrTCPreferenceValues(PreferenceInfo)
'Boolean value true or false for preference TC_Allow_Longer_ID_Name
PreferenceValue = PreferenceInfo(0, 1)
'Boolean value true or false for preference SEEC_BOM_Synchronize
PreferenceValue = PreferenceInfo(1, 1)
If Not objApplication Is Nothing Then
Call objApplication.Quit
End If
Set objTCE = Nothing
Set objApplication = Nothing
End Sub