NCF参数化建筑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 11225|回复: 2
打印 上一主题 下一主题

[话题讨论] rhino5中代码规则究竟变了多少啊。

[复制链接]
跳转到指定楼层
1m
发表于 2012-8-22 18:07:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 鹰眼黑客 于 2012-8-22 19:18 编辑

初学script过程中本来根据网上例子写了一段很简单的点螺旋线,但是log10这个rhino4里面可识别的符号居然在rhino5里面不能识别了,成为一个变量了。本来一开始还觉得rhino5里面的editor的界面还挺人性化的,但这样一来好多例子又不得不在monkey里面学习了,因为手里有些下载的例子在5里面运行都有些问题。这是代码,本身没什么技术含量,旨在抛砖引玉希望有大神能指导一下,4和5的代码区别在哪里。
Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2012年8月22日 17:16:00

Call phyllotaxis_system()
Sub phyllotaxis_system()


        Dim x,y,z,theta
        Dim n:n = 0


        Dim dbla,dblb,dble,strobjects,strtxt,strline,ArrCurves3,p
        'Call Rhino.EnableRedraw(False)


   
                For n=0 To 50 Step 0.5
                ReDim Preserve arrPts(n),arrPts1(n)
                ReDim Preserve arrcircle(n),arrcone(n)
                Dim arrplane
                theta = (n / 100) * rhino.pi
                dbla = 1
                dblb = 2
                dble = 2.7182818284590
                x = dbla * (dble * (dblb * theta)) * cos(theta)
                y = -dbla * (dble * (dblb * theta)) * sin(theta)

                z = log10(n) * 10 / 2
  
  
                arrPts(n) = array(x, y, z)
                rhino.AddPoint arrpts(n)


        Next
End Sub
以前下过一个师兄的光机制研究代码,那位师兄说在5里面可以运行,4里面有问题,结果我发现4和5里面都不能运行,改了半天也不行,错误百出,不是不匹配就是不识别,改了一半放弃了。

顺便发个小牢骚,水一下。我有个打了很久的网页游戏(不要嘲笑),今天送了个装备说可以重新刷属性,于是我点了一下那个装备,瞬间三个月白练了。那一刻,我仰天长啸,顿时明白,生活木有捷径可走。。。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享
2m
发表于 2012-8-22 20:09:52 | 只看该作者
本帖最后由 wangjunxiong 于 2012-8-22 20:12 编辑

不就加了个rhino. 么,按牛5的格式就可。其实没改多少代码。
就把log10(n) 改为 rhino.log(n)便可以运行啦,没楼主说的那么夸张吧,呵呵。

3m
 楼主| 发表于 2012-8-22 22:24:12 | 只看该作者

哦,多谢多谢。之前就是不知道5的格式是啥,主要还是怪我vb基础不佳。4的monkey比较接近传统的VB。我没想到5里面就是加个rhino.就能识别了。我一直以为所有rhino都可以自动识别所有数学符号。

小黑屋|手机版|NCF参数化建筑论坛 ( 浙ICP备2020044100号-2 )    辽公网安备21021102000973号

GMT+8, 2024-11-1 07:04 , Processed in 0.141298 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表