top of page
  • Writer's pictureDavid Mans


💻 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
    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)
    Call Rhino.EnableRedraw(True)
End Function


Recent Posts

See All


bottom of page