AddToAllElevations Example
Sub Example_AddToAllElevations()
' This example uses AddToAllElevations to increase the elevation by 20.0 for
' the first surface in the collection.
Dim surf As AeccSurface
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
MsgBox "The MeanElevation for the first surface before elevation increase is: " & _
surf.MeanElevation;, vbInformation, "AddToAllElevations Example"
surf.AddToAllElevations 20#
surf.Build
MsgBox "The MeanElevation for the first surface after elevation increase is: " & _
surf.MeanElevation;, vbInformation, "AddToAllElevations Example"
End Sub