求问为什么运行不了？

yin_27

登录/注册后可看大图

月之眼

上传文件

yin_27

月之眼 发表于 2015-4-20 23:18

                               
登录/注册后可看大图

上传文件

已上传，麻烦您帮我看一下

月之眼

yin_27 发表于 2015-4-21 22:08

                               
登录/注册后可看大图

已上传，麻烦您帮我看一下

你写完了函数，但是你没有调用自己写完的这个函数，所以不会运行函数里的内容，函数是需要调用才会运行的，所以在第二句加入Call TwistAndShout()这个调用命令就好了。

1. Option Explicit
   
2. Call TwistAndShout()
   
3. Sub TwistAndShout()  
   
4.         Dim z, a   
   
5.         Dim pi, dblTwistAngle  
   
6.         pi = Rhino.PI()
   
7. 
   
8.   
   
9.         dblTwistAngle = 0.0
   
10.        
    
11.         Call Rhino.EnableRedraw(False)  
    
12.         For z = 0.0 To 5.0 Step 0.5
    
13.        
    
14.                      
    
15.                 dblTwistAngle = dblTwistAngle + (pi / 30)  
    
16.                   
    
17.                 For a = 0.0 To 2 * pi Step (pi / 15)   
    
18.                         Dim x, y   
    
19.                         x = 5 * Sin(a + dblTwistAngle)  
    
20.                         y = 5 * Cos(a + dblTwistAngle)  
    
21.                         Call Rhino.AddSphere(Array(x, y, z), 0.5)
    
22.                 Next
    
23.         Next   
    
24.         Call Rhino.EnableRedraw(True)  
    
25. End Sub

复制代码

yin_27

月之眼 发表于 2015-4-22 10:19

                               
登录/注册后可看大图

你写完了函数，但是你没有调用自己写完的这个函数，所以不会运行函数里的内容，函数是需要调用才会运行的 ...

哈哈 果然 如此谢谢~~