FindFace Example
Sub Example_FindFace()
' This example returns a new face collection for an entered point in
' the first surface in the collection.
Dim surf As AeccSurface
Dim faces As AeccFaces
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set faces = Surf.Outputs.Faces
MsgBox "The number of Faces in the collection before FindFace is: " & faces.Count _
, vbInformation, "FindFace Example"
' 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, "FindFace Example"
End Sub