一个曲面网架的生成代码（9楼有练习题）

夜神

truss.jpg (82.53 KB, 下载次数: 2)

2010-6-5 15:36 上传

点击文件名下载附件
阅读权限: 10

Option Explicit
run Rhino.GetObject("select a surface", 8)
FUNCTION run(sf)
DIM i,j,p(),mm,nn,uDomain,vDomain,spanMM,spanNN
mm=8 : nn=10  '分段数
uDomain=Rhino.SurfaceDomain (sf, 0)
vDomain=Rhino.SurfaceDomain (sf, 1)
REDIM p((mm+1)*(nn+1)-1)
  spanMM=(uDomain(1)-uDomain(0))/mm
spanNN=(vDomain(1)-vDomain(0))/nn
FOR i=0 TO mm
  FOR j=0 TO nn
   p(i*(nn+1)+j)=Rhino.EvaluateSurface (sf, Array(i*spanMM,j*spanNN))
   Rhino.AddSphere  p(i*(nn+1)+j), 3
  NEXT
NEXT
'横杆
FOR i=0 TO mm
  FOR j=0 TO nn-1
   Rhino.AddCylinder p(i*(nn+1)+j), p(i*(nn+1)+j+1), 0.7
  NEXT
NEXT
'斜杆
FOR i=0 TO mm-1
  FOR j=0 TO nn-1
   Rhino.AddCylinder p(i*(nn+1)+j), p((i+1)*(nn+1)+j+1), 0.7
  NEXT
NEXT
'纵杆
FOR i=0 TO mm-1
  FOR j=0 TO nn
   Rhino.AddCylinder p(i*(nn+1)+j), p((i+1)*(nn+1)+j), 0.7
  NEXT
NEXT
Rhino.DeleteObject sf
END FUNCTION

运行后按提示选择一个曲面（单曲面），OK了。
这个程序只有最基本的东西，在此基础上作其他修改很容易。

DONNA

用编程啊，高手！！！！

横穿马路

不错，学习学习

ajrr

我觉得还是GH好用

ajun

好用
{:3_46:}

gtl535

不错不错，学习了

nightrain2

不错的例子，感谢分享

lorenzo13

取余函数确实会比step好用

wrn

hao....................

anboyh

活到老学到老。

Tony

顶夜神兄~~~~

456

script   在那里操作  ，我什么输入script没找到呢？

dandantian

{:3_47:}{:3_58:}

gogoalec

很好 我正在学习如何加入图案

05310130

不错不错！！

woodwest

阿，还是能看懂一些！

最牛的粽子

好啊。。。练习练习

aiwei1206

不错 见识了啊 生命持续学习不止

marcowoo

感谢分享！学习~

jasonbb88

thx          thx