Multiloft

💻 Rhino 5

🔼 Rhino Script

🛠️ Visual Basic

---

This Rhino Script allows the user to select multiple sets of curves to run the loft command on, reducing the total amount of time spent cycling through options.

---

Option Explicit
'Script written by <David Mans>
'Script copyrighted by <Neoarchaic Design>
'Script version Saturday, December 27, 2008 9:23:06 PM
 
Call Main()
Sub Main()
    Dim i,j, curveSets()
    ReDim curveSets(0)
    curveSets(0) = Rhino.GetObjects("Select Curve Set 1", 4)
    If isNull(curveSets(0)) Then Exit Sub
    i = 0
    j = 0
     
    Do Until j = 1
        i = i + 1
        ReDim Preserve curveSets(i)
        curveSets(i) = Rhino.GetObjects("Select Curve Set " &amp; i + 1, 4)
        If isNull(curveSets(i)) Then
            j = 1
        End If
    Loop
    ReDim Preserve curveSets(i-1)
     
    Call multiLoft(curveSets)
End Sub
Function multiLoft(curveSets)
    multiLoft = Null
    Dim i
    Call Rhino.Command("-_SelNone", False)
     
    Call Rhino.SelectObjects(curveSets(0))
    Call Rhino.Command("-_Loft", False)
    Call Rhino.EnableRedraw(False)
    For i = 1 To uBound(curveSets) Step 1
        Call Rhino.SelectObjects(curveSets(i))
        Call Rhino.Command("-_Loft _enter _enter", False)
        Call Rhino.Command("-_SelNone", False)
    Next
    Call Rhino.EnableRedraw(True)
         
End Function

---