AddToAllElevations Example

Land Auto

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