The following RhinoScript demonstrates how to explode a mesh into individual faces. See the RhinoScript help file for details on running scripts.

        Option Explicit


        Sub ExplodeMesh
          Dim mesh
          mesh = Rhino.GetObject("Select mesh to explode", 32)
          If IsNull(mesh) Then Exit Sub


          Dim faces
          faces = Rhino.MeshFaces(mesh, True)
          If Not IsArray(faces) Then Exit Sub


          Rhino.EnableRedraw False
          Dim i, a, b, c, d, bQuad
          i = 0


          While i <= UBound(faces)
            a = faces(i)
            b = faces(i+1)
            c = faces(i+2)
            d = faces(i+3)
            If c(0)=d(0) And c(1)=d(1) And c(2)=d(2) Then
              Rhino.AddMesh Array(a,b,c,d), Array(Array(0,1,2,2))
            Else
              Rhino.AddMesh Array(a,b,c,d), Array(Array(0,1,2,3))
            End If
            i = i + 4
          Wend


          Rhino.DeleteObject mesh
          Rhino.EnableRedraw True


        End Sub
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
10/6/2008 4:22:41 PM - dale@mcneel.com-204.177.179.111
""RhinoScript"" is a scripting language based on Microsoft's ""VBScript"" language. With ""RhinoScript"", you can quickly add functionality to Rhino, or automate repetitive tasks.
10/6/2008 4:22:41 PM - dale@mcneel.com-204.177.179.111