Ad

Sunday, November 15, 2009

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

No comments:

LinkWithin

Blog Widget by LinkWithin

Ad