Option Explicit
'Script written by Damien Alomar
'Script version Friday, August 03, 2007

Call PipeCurves()
Sub PipeCurves()
	
	Dim arrCrvs, strCrv, radius, endStyle, i
	
	arrCrvs = Rhino.GetObjects ("Select Curves to Pipe", 4, False, True, False)
	radius = Rhino.GetReal ("Radius", 1, 0)
	endStyle = Rhino.GetString ("End Style", "Flat", Array("None","Flat","Round"))
	
	If IsNull(arrCrvs) Then
		Rhino.Print "No curves were selected"
		Exit Sub
	End If
	
	i=1
	For Each strCrv In arrCrvs
		Rhino.Command "!_NoEcho _Pipe SelID " & strCrv & " Cap " & endStyle & " " & radius & " enter enter enter _Echo"
		Rhino.Prompt i & " out of " & UBound(arrCrvs) & " curves piped"
		i= i+1	
	Next

End Sub