FindAllFaces Example

Sub Example_FindAllFaces()

    ' This example begins by getting a faces collection for an entered

    ' point in the first surface in the collection. Then the FindAllFaces

    ' is used to get the entire faces collection.

    Dim surf As AeccSurface

    Dim faces As AeccFaces

    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)

    Set faces = surf.Outputs.faces

    ' Return a point using a prompt

    Dim returnPnt As Variant

    returnPnt = ThisDrawing.Utility.GetPoint(, "Select a point: ")

    ' Find face points

    faces.FindFace returnPnt(0), returnPnt(1)

    MsgBox "The number of Faces in the collection after FindFace is: " & faces.Count, _

        vbInformation, "FindAllFaces Example"

    faces.FindAllFaces

    MsgBox "The number of Faces in the collection after FindAllFaces is: " & faces.Count, _

        vbInformation, "FindAllFaces Example"

End Sub