Inizio Pipe differente da versioni precedenti

Rhino Windows
17 
Call PipeStartEnd()
Sub PipeStartEnd()
	Dim strCurve, arrDomain, arrPoint, dblParam, dblRadStart, dblRadEnd, t, tStart, tEnd
	
	strCurve = Rhino.GetObject("Sel Crv", 4, True)
	If IsNull(strCurve) Then Exit Sub

	arrDomain = Rhino.CurveDomain(strCurve)
	
	arrPoint = Rhino.GetPointOnCurve(strCurve)
	If Not IsArray(arrPoint) Then Exit Sub
	
	dblParam = Rhino.CurveClosestPoint(strCurve, arrPoint)
	If IsNull(dblParam) Then Exit Sub
	
	dblRadStart = Rhino.GetReal("Rad Start")
	If IsNull(dblRadStart) Then Exit Sub
	
	dblRadEnd = Rhino.GetReal("Rad End")
	If IsNull(dblRadEnd) Then Exit Sub
	
	If dblParam <= (arrDomain(1) / 2) Then   
		tStart = arrDomain(0)
		tEnd = arrDomain(1)
	Else
		tStart = arrDomain(1)
		tEnd = arrDomain(0)
	End If
	
	Call Rhino.AddPipe(strCurve, Array(tStart, tEnd), Array(dblRadStart, dblRadEnd))
End Sub

vedi così dovrebbe andare. . .