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

gyhk02

不调用rhino内部命令的情况下，如何用rvb实现圆管，不加盖的更好。

搂住的意思是说不用指令，而是用 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
    

复制代码

1. import rhinoscriptsyntax as rs
   
2. 
   
3. 
   
4. 
   
5. class pipe:
   
6.    
   
7.     def __init__(self,curve):
   
8.         
   
9.         self.crv = curve
   
10.         
    
11.         
    
12.     def pipe(self,rad):
    
13.         
    
14.         domain = rs.CurveDomain(self.crv)
    
15.         pipe = rs.AddPipe(self.crv,domain[0],rad)
    
16.         
    
17. def main():
    
18.     crvs = rs.GetObjects("select your curves",4)
    
19.     raddi = rs.GetReal("pipe raddio",.5)
    
20.     for i in crvs:
    
21.         
    
22.         myPipe = pipe(i)
    
23.         myPipe.pipe(raddi)
    
24. 
    
25. 
    
26. main()

复制代码

不好意思写惯了class。这是非class的。J大的知识一根，多管加个for loop就可以了

1. import rhinoscriptsyntax as rs
   
2. 
   
3. 
   
4. crvs = rs.GetObjects("select your curves",4)
   
5. 
   
6. raddi = rs.GetReal("pipe raddio",.5)
   
7. 
   
8. for i in crvs:
   
9.    
   
10.     domain = rs.CurveDomain(i)
    
11.     pipe =rs.AddPipe(i,domain[0],.5)
    
12. 
    
13. 
    

复制代码

谢两位，问题解决。