问一个关于细分多段线的问题

ninesuns

下面是一段代买，当我运行到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

wzlacff

看着好复杂啊……

hj31415926

学习学习~~~~

ninesuns

rhinoscript101啊
12# kzseL

ninesuns

多谢啦。我发现我的那个代码有一个地方打错了。。。其实那个就跑得出来。。。不过还是很感谢。。 10# weiwei

bluecheng

谢谢楼主，楼主辛苦了

kzseL

下载了，感觉吧，可以用在表皮的各种地方  呵呵细节胜利！

kzseL

脚本啊，有木有人知道教程何在？

weiwei

不知道這是不是你要解決的問題。利用當前的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

ninesuns

rhinoscript啊。。。
6# wangjunxiong

邓豪

还是看不懂，学习中。。。

hei555

代码 头晕！！！

wangjunxiong

这就是dp？

ninesuns

大家都是初学者，周围没人会，只能上论坛上来问啊
4# JiangLi.arch

JiangLi.arch

每次看LZ一大长串编码我就晕头了

ninesuns

希望各位高手和版主帮帮忙啊。

ninesuns

没人理我么。。。自己顶。。。