GetDouble Example

Land Auto

GetDouble Example

Sub Example_GetDouble()
    
    ' This example uses GetDouble to return the ContLabelSpacingDist
    ' for PreferencesSurface.
    Dim surfPref As AeccPreferencesSurface
    Set surfPref = AeccApplication.ActiveProject.preferences.Surface
    
    MsgBox "The value for ContLabelSpacingDist is " & surfPref.GetDouble(kContLabelSpacingDist), _
        vbInformation, "GetDouble Example"
    
End Sub