Finds faces from a mesh that are bounded by unwelded or naked edges.
Rhino.MeshPart (strObject, intFaceIndex, dblBreakAngle, blnNonManifoldEdges)
strObject |
Required. String. The identifier of a mesh object. |
intFaceIndex |
Required. Number. The index of the mesh to begin the search. |
blnNonManifoldEdges |
Required. Boolean. If True, non-manifold edges will be handled like unwelded edges. If False, non-manifold edges are ignored. |
Array |
An array of face indices that identify the connected faces if successful. |
Null |
If not successful, or on error. |
Const rhObjectMesh = 32
Dim strMesh, arrIndices, arrFaces
strMesh = Rhino.GetObject("Select mesh", rhObjectMesh)
If Not IsNull(strMesh) Then
arrIndices = Rhino.GetMeshFaces(strMesh, "Select mesh face", 1, 1)
If IsArray(arrIndices) Then
arrFaces = Rhino.MeshPart(strMesh, arrIndices(0), true)
If IsArray(arrFaces) Then
Call Rhino.Print(CStr(UBound(arrFaces) + 1) & " faces found.")
End If
End If
End If