NCF参数化建筑论坛

标题: 问一个关于细分多段线的问题 [打印本页]

作者: ninesuns 时间: 2011-12-23 14:50
标题: 问一个关于细分多段线的问题
下面是一段代买，当我运行到arrsubd(i*2+1)=array((arrv(i)(0)+array(i+1)(0))/2.0,_
(arrv(i)(1)+array(i+1)(1))/2.0,_
(arrv(i)(2)+arrv(i+1)(2))/2.0)
的时候告诉我下标越界，谁能解释下为什么。
下面附上代码
Call Main()
Sub Main()
Dim a
a=rhino.GetObject("select a polyline")
Dim b
b=rhino.PolylineVertices(a)
Call subdividepolyline(b)
End Sub
Function subdividepolyline(ByRef arrv)
Dim arrsubd()
ReDim arrsubd(2*ubound(arrv))
Dim i

For i=0 To ubound(arrv)-1
  arrsubd(i*2)=arrv(i)
  arrsubd(i*2+1)=array((arrv(i)(0)+array(i+1)(0))/2.0,_
(arrv(i)(1)+array(i+1)(1))/2.0,_
(arrv(i)(2)+arrv(i+1)(2))/2.0)
Next
arrsubd(ubound(arrsubd))=arrv(ubound(arrv))
subdividepolyline=arrsubd()
End Function

作者: ninesuns 时间: 2011-12-23 17:12
没人理我么。。。自己顶。。。

作者: ninesuns 时间: 2011-12-23 17:12
希望各位高手和版主帮帮忙啊。

作者: JiangLi.arch 时间: 2011-12-23 18:41
每次看LZ一大长串编码我就晕头了

作者: ninesuns 时间: 2011-12-23 21:23
大家都是初学者，周围没人会，只能上论坛上来问啊
4# JiangLi.arch

作者: wangjunxiong 时间: 2011-12-23 21:47
这就是dp？

作者: hei555 时间: 2011-12-23 22:02
代码头晕！！！

作者: 邓豪 时间: 2011-12-24 13:51
还是看不懂，学习中。。。

作者: ninesuns 时间: 2011-12-24 14:37
rhinoscript啊。。。
6# wangjunxiong

作者: weiwei 时间: 2011-12-29 02:00
不知道這是不是你要解決的問題。利用當前的vertex與下一個vertex兩點取中點來達到等分。Call Main()
Sub Main()

Dim a

a=rhino.GetObject("select a polyline")

Dim b

b=rhino.PolylineVertices(a)

Call subdividepolyline(b)

End Sub

Function subdividepolyline(arrv)

ReDim arrsubd(ubound(arrv))

ReDim allPt(ubound(arrv))

ReDim vetix(ubound(arrv))

Dim i

For i=0 To ubound(arrv)-1

arrsubd(i)=array((arrv(i)(0)+arrv(i+1)(0))/2.0,(arrv(i)(1)+arrv(i+1)(1))/2.0,(arrv(i)(2)+arrv(i+1)(2))/2.0)

allPt(i)= rhino.AddPoint(arrsubd(i))

Next

For i = 0 To ubound(arrv)

vetix(i)= rhino.AddPoint(arrv(i))

Call rhino.ObjectColor(vetix(i),rgb(200,0,0))

Next

subdividepolyline=allPt

End Function

作者: kzseL 时间: 2011-12-29 11:41
脚本啊，有木有人知道教程何在？

作者: kzseL 时间: 2011-12-29 13:04
下载了，感觉吧，可以用在表皮的各种地方呵呵细节胜利！

作者: bluecheng 时间: 2011-12-30 09:22
谢谢楼主，楼主辛苦了

作者: ninesuns 时间: 2011-12-30 20:41
多谢啦。我发现我的那个代码有一个地方打错了。。。其实那个就跑得出来。。。不过还是很感谢。。 10# weiwei

作者: ninesuns 时间: 2011-12-30 20:42
rhinoscript101啊
12# kzseL

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

作者: wzlacff 时间: 2012-5-24 21:44
看着好复杂啊……

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