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

Call PipeCurves()
Sub PipeCurves()
	
	Dim arrCrvs, strCrv, radius, endStyle 
	
	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
	
	Rhino.EnableRedraw False
	For Each strCrv In arrCrvs
		Rhino.Command "!_NoEcho _Pipe SelID " & strCrv & " Cap " & endStyle & " " & radius & " enter enter enter"
	Next
	Rhino.Command "!_Echo"
	Rhino.EnableRedraw True
End Sub