Multiloft

Rhinoscripts / By

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.

Rhino Script

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