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

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

ninesuns

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

ninesuns

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

ninesuns

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

ninesuns

rhinoscript啊。。。
6# wangjunxiong

ninesuns

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

ninesuns

rhinoscript101啊
12# kzseL