SearchType Example
Sub Example_SearchType()
' This example returns how the Faces collection was generated.
Dim surf As AeccSurface
Dim faces As AeccFaces
Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
Set faces = Surf.Outputs.Faces
Dim msgStr As String
Select Case faces.SearchType
Case kNoSearch
msgStr = "No search"
Case kSearchByBoundar
msgStr = "Search by boundary"
Case kSearchByPath
msgStr = "Search by path"
Case kSearchByPoint
msgStr = "Search by point"
End Select
MsgBox "The Faces search type is set to: " & msgStr, vbInformation, "SearchType Example"
End Sub