Surface Example

Land Auto

previous page next page

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

previous page start next page