A pool of resources
Pages
Multiloft

    

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

platform: Rhino Script
function: Modeling Aid

 

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 " & 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


Mar 06, 2010 | Resources, Rhinoscripts, Scripted Tools

Reply