FirstTimeDrawingSetup Example
Sub Example_FirstTimeDrawingSetup()
' This example returns the FirstTimeDrawingSetup setting.
Dim prefUser As AeccPreferencesUser
Set prefUser = AeccApplication.Preferences.User
' Convert the constant to a string.
Dim strType As String
If prefUser.FirstTimeDrawingSetup = kDrawingSetupWizard Then
strType = "Wizard"
End If
If prefUser.FirstTimeDrawingSetup = kDrawingSetupCommand Then
strType = "Command"
End If
If prefUser.FirstTimeDrawingSetup = kAutoloadSetupFile Then
strType = "Autoload"
End If
MsgBox "The current value for FirstTimeDrawingSetup is: " & strType, _
vbInformation, "FirstTimeDrawingSetup Example"
End Sub