FirstTimeDrawingSetup Example

Land Auto

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