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