'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ' PipeAll.rvb -- September 2008
  ' If this code works, it was written by Rajaa Issa.
  ' If not, I don't know who wrote it.
  ' Works with Rhino 4.0.

Option Explicit
Call Main

Sub Main()
	PipeAll()
End Sub

Sub PipeOne(strRail, strRadius)
	Dim strCmd
	strCmd = "! _-Pipe _SelID " & strRail & " " & strRadius & " _Cap=_Round _Enter _Enter"
	Call Rhino.Command(strCmd, 0)
End Sub


Sub PipeAll()
	Dim arrCurves, name, pipeRadius
	arrCurves = Rhino.GetObjects("Select curves to pipe", 4)
	pipeRadius = Rhino.GetReal("Pipe radius")

	'PIPE
	If IsArray(arrCurves) Then
		For Each name In arrCurves
			Call PipeOne(name, pipeRadius)
		Next
	End If
End Sub