NCF参数化建筑论坛

标题: 求问为什么运行不了？ [打印本页]
作者: yin_27    时间: 2015-4-20 23:01
标题: 求问为什么运行不了？
本帖最后由 yin_27 于 2015-4-21 22:07 编辑

[attach]43096[/attach][attach]43097[/attach]
作者: 月之眼    时间: 2015-4-20 23:18
上传文件
作者: yin_27    时间: 2015-4-21 22:08
月之眼 发表于 2015-4-20 23:18

                               
登录/注册后可看大图

上传文件

已上传，麻烦您帮我看一下
作者: 月之眼    时间: 2015-4-22 10:19
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()

  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-27 17:55
月之眼 发表于 2015-4-22 10:19

                               
登录/注册后可看大图

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

哈哈 果然 如此谢谢~~



欢迎光临 NCF参数化建筑论坛 (http://bbs.ncf-china.com/) Powered by Discuz! X3.2