Rebuild All Surfaces

This post will go over rebuilding all surfaces in a drawing, well sort of. It will rebuild all surfaces in a drawing, but since there is no way of telling, through the API, if a surface is out of date it will possibly leave some surfaces out of date after it runs. The code is below, add it to the corridor post code from yesterday and it should run.

' Added update surfaces routine.
Sub UpdateAllSurfaces()
    'always get the objects again since MDI is supported
    If (GetBaseCivilObjects = False) Then
        Exit Sub
    End If
    
    Dim oSurface As AeccSurface
    For Each oSurface In g_oRoadwayDocument.Surfaces
        oSurface.Rebuild
    Next
      
End Sub