Surfaces Example

Land Auto

previous page next page

Surfaces Example 

Sub Example_Surfaces()
    
    ' This example returns the vertical exaggeration factor for Surfaces
    ' Preferences in the current project.
    Dim prefPrj As AeccPreferencesProject
    Set prefPrj = AeccApplication.ActiveProject.Preferences
    
    MsgBox "The vertical exaggeration factor for Surfaces Preferences in the current Project is: " & prefPrj.Surface.GetDouble(kVertExaggerationFactor) _
        , vbInformation, "Surfaces Example"
    
End Sub

previous page start next page