This Rhino Script allows the user to select multiple sets of curves to run the loft command on, reducing the total amount on 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