top of page
  • Writer's pictureDavid Mans

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
 


3 views

Recent Posts

See All

Comments


bottom of page