SetInteger Example

Land Auto

SetInteger Example

Sub Example_SetInteger()
    
    ' This example uses SetInteger to define the ContLabelPrecision
    ' for PreferencesSurface.
    Dim surfPref As AeccPreferencesSurface
    Set surfPref = AeccApplication.ActiveProject.preferences.Surface
    
    surfPref.SetInteger kContLabelPrecision, 3
    
    MsgBox "The value for ContLabelPrecision is " & surfPref.GetInteger(kContLabelPrecision), _
        vbInformation, "SetInteger Example"
    
End Sub