NCF参数化建筑论坛

标题: rs问题—如何增加数组点 [打印本页]

作者: rabbit8ge 时间: 2011-2-10 17:17
标题: rs问题—如何增加数组点
如果我使用下列代码：
Dim arrCount(1), arrPoints(24), nCount, i, j
arrCount(0) = 5
arrCount(1) = 5
nCount = 0
For i = 0 to arrCount(0) - 1
For j = 0 to arrCount(1) - 1
arrPoints(nCount) = Array(i*2, j*4, 0)
nCount = nCount + 1
Next
Next
之后我想要用
Rhino.AddPoint arrPoints
将数组点全部输出？怎么写
我现在只可以加入例如代码
Rhino.AddPoint arrPoints（0）得到数组中的一个点

作者: rabbit8ge 时间: 2011-2-11 13:25
呵呵，没人回那就自己回自己吧

首先，第一个问题 Rhino.AddPoint 是只增加一个点的函数这样就解释了为什么我指定第n个数组点时，即arrPoint（n-1)时可以输出点但是当我使用数组时却过界的原因应该数组中有多个点。

解决的方法是用一个for循环将点给一个一个的写出来
Dim arrCount(1), arrPoints(24), nCount, i, j
arrCount(0) = 5
arrCount(1) = 5
nCount = 0
For i = 0 To arrCount(0) - 1
  For j = 0 To arrCount(1) - 1
arrPoints(nCount) = Array(i*2, j*4, 0)
nCount = nCount + 1
  Next
Next
Dim a
For a = 0 To 24
  Rhino.AddPoint arrPoints(a)
Next

其次，将简单的方案是使用 Rhino.AddPoints 函数就可以同时生成多个点。
Dim arrCount(1), arrPoints(24), nCount, i, j
arrCount(0) = 5
arrCount(1) = 5
nCount = 0
For i = 0 To arrCount(0) - 1
  For j = 0 To arrCount(1) - 1
arrPoints(nCount) = Array(i*2, j*4, 0)
nCount = nCount + 1
  Next
Next
Rhino.AddPoints arrPoints

总结，下次一定要看清英语呵呵~~~

作者: tompwh 时间: 2011-2-11 19:40
谢谢楼主，楼主辛苦了

作者: 1127463392 时间: 2011-2-24 20:19
{:3_46:}震

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