不调用rhino内部命令的情况下，如何用rinoscript实现圆管?

搂住的意思是说不用指令，而是用 RhinoScript 来执行 Pipe 的类似功能吗？
RhinoScript 所有的函数都是呼叫 Rhino 内部函数库的， 例如可以这么写

1. m strCurve, arrDomain
   
2. 
   
3. strCurve = Rhino.GetObject("Select curve to create pipe around", 4, True)
   
4. 
   
5. If Not IsNull(strCurve) Then
   
6. 
   
7.   arrDomain = Rhino.CurveDomain(strCurve)
   
8. 
   
9.   Rhino.AddPipe strCurve, Array(arrDomain(0)), Array(4)
   
10. 
    
11. End If
    

复制代码

搂住的意思是说不用指令，而是用 RhinoScript 来执行 Pipe 的类似功能吗？
RhinoScript 所有的函数都是呼叫 Rhino 内部函数库的， 例如可以这么写

1. Dim strCurve, arrDomain
   
2. 
   
3. strCurve = Rhino.GetObject("Select curve to create pipe around", 4, True)
   
4. 
   
5. If Not IsNull(strCurve) Then
   
6. 
   
7.   arrDomain = Rhino.CurveDomain(strCurve)
   
8. 
   
9.   Rhino.AddPipe strCurve, Array(arrDomain(0)), Array(4)
   
10. 
    
11. End If
    

复制代码