Surface Example

Land Auto

Surface Example

Sub Example_Surface()
    
    ' This example returns the PreferencesSurface object that
    ' is used to access the SurfaceLayer property
    Dim surfPref As AeccPreferencesSurface
    Set surfPref = AeccApplication.ActiveProject.preferences.Surface
    
    MsgBox "The Surface preferences for SurfaceLayer is: " & surfPref.GetString(kSurfaceLayer), _
        vbInformation, "Surface Example"
    
End Sub