Boundaries Example

Land Auto

Boundaries Example

Sub Example_Boudaries()
    
    ' This example returns the number of Boundaries in the first
    ' surface in the collection.
    Dim surf As AeccSurface
    Dim surfIn As AeccSurfaceInputs
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    Set surfIn = surf.Inputs
    
    MsgBox "The number of Boundaries in the first Surface is: " & surfIn.Boundaries.Count _
        , vbInformation, "Boundaries Example"
    
End Sub