NCF参数化建筑论坛

标题: 一个简单的波纹面 [打印本页]

作者: 夜神 时间: 2010-12-12 22:29
标题: 一个简单的波纹面
[attach]13204[/attach]
Option Explicit
run
Sub run()
Dim i,j,x,y,z,d,p() :ReDim p(201*201-1)
For i=0 To 200
For j=0 To 200
x=-100+i
y=-100+j
d=Sqr(x^2+y^2)
z=2*Sin(0.7*d)
p(i*201+j)=Array(x,y,z)
Next
next
Rhino.AddSrfControlPtGrid Array(201,201), p, Array(2,2)
End Sub

作者: weiwei 时间: 2010-12-12 22:50
nice one yo !!

作者: kimlll 时间: 2010-12-12 23:44
简单而有启发性

作者: njyqqq 时间: 2010-12-13 11:49
夜神出现了，大家快来啊{:3_53:}

作者: 夜神 时间: 2010-12-13 14:29
感谢领导加昏鼓励！

作者: shapomao 时间: 2010-12-13 14:59
不错支持一下

作者: SDK 时间: 2010-12-13 15:40
很给妹呀!学习

作者: ccocean 时间: 2010-12-13 21:42
楼主牛人啊

作者: panhao1 时间: 2010-12-13 21:51
好像是processing的练习里面的

作者: 05310130 时间: 2010-12-21 00:10
不错不错！！

作者: ukcolour 时间: 2011-1-30 08:47
言简意赅。这个写的挺紧凑

作者: ericwest 时间: 2011-2-10 10:30
谢谢分享 {:3_51:}

作者: renjiez20 时间: 2011-3-2 23:49
唉。看着羡慕了。。。。

作者: jian3vivi 时间: 2011-3-10 12:51
喜欢这样的练习帖子

作者: sunjianan 时间: 2011-3-15 19:50
这么简洁，效果倒挺好。。。。。

作者: renping88 时间: 2011-3-20 02:07
都是各个地方哈地方保护

作者: 456 时间: 2011-9-21 02:38
script ？
在那里操作，我什么输入script没找到呢？

作者: 云浮 时间: 2011-10-17 22:08
支持一下！

作者: cuilei33 时间: 2011-12-9 00:10
喜欢、。。。。。。。。

作者: hying 时间: 2011-12-10 13:03
顶。。。！

作者: houguanyu 时间: 2012-1-5 10:16
提示: 作者被禁止或删除内容自动屏蔽

作者: kongjunhong 时间: 2012-1-5 11:21
楼主牛逼啊

作者: hj31415926 时间: 2012-3-25 21:15
学习学习~~~~

作者: kangj 时间: 2012-4-13 02:12
支持一下！1

作者: Lrhino 时间: 2012-4-14 22:44
虽简单，但有效果

作者: bamboo 时间: 2012-12-20 08:09
支持一下！！！

作者: 2665908564 时间: 2013-1-5 04:21
grassopper也能做

欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/)