能不能請高手指導一下?

urdiafa

我寫下面code,要把Function subdividepolyline(ByRef arrv)計算好的點集合,傳到
strNewPolyline = Rhino.AddPolyline(arrNewVertices)去形成polyline,但出現錯誤訊息
arrNewVertices不是array的形式,我是自我學習,練習寫出類似萬花筒的圖,卡在此點,無法解決請高手指點
.----------------------------------------------------
Option Explicit

Call Main()
Sub Main()
        Dim a
        a = rhino.GetObject("select a polyline") '選取一個封閉polyline

        Dim b
        b = rhino.PolylineVertices(a)

        Dim arrNewVertices
        arrNewVertices = SubDividePolyline(b)

        Dim strNewPolyline
        strNewPolyline = Rhino.AddPolyline(arrNewVertices) '到此行出現錯誤訊息
       
End Sub
'-----------------------------------------
Function subdividepolyline(ByRef arrv)

        ReDim arrsubd(ubound(arrv))
        ReDim allPt(ubound(arrv))
        ReDim vetix(ubound(arrv))

        Dim i,temp,pangle,plength,sp,ep,b
        Dim counter : counter = 0
        For i=0 To ubound(arrv) - 1
       
                sp = (arrv(i))
                ep = (arrv(i + 1))
       
                temp = Rhino.Angle(sp, ep)
                pangle = temp(0)
                plength = Rhino.Distance(sp, ep)
                arrsubd(i) = Rhino.Polar(sp, pangle, (plength / 3))
       
        Next

        subdividepolyline = arrsubd
End Function

jasonroc

代码不熟，期待高手解答~

Irene

我也不会。帮顶下，希望有更多人看到集思广益。

ccc159

应为  ReDim arrsubd(ubound(arrv)-1)

因为你是for i =0 to ubound(arry) - 1

否则你的 arrNewVertices  array里面最后一个是 empty

月之眼

ccc159 发表于 2014-5-15 14:20

                               
登录/注册后可看大图

应为  ReDim arrsubd(ubound(arrv)-1)

因为你是for i =0 to ubound(arry) - 1

终于又一个懂的人解答啦、、

urdiafa

謝謝ccc159的提示,我多加此行  --->arrsubd(i) = arrsubd(0)
使arrNewverices array 符合 ReDim arrsubd(ubound(arrv)的個數
就可執行,萬分感謝,可以繼續發展下去,修正如下
;--------------------------------------
Option Explicit

Call Main()
Sub Main()
        Dim a
        a = rhino.GetObject("select a polyline") '選取一個封閉polyline

        Dim b
        b = rhino.PolylineVertices(a)

        Dim arrNewVertices
        arrNewVertices = SubDividePolyline(b)

        Dim strNewPolyline
        strNewPolyline = Rhino.AddPolyline(arrNewVertices)
        
End Sub
'-----------------------------------------
Function subdividepolyline(ByRef arrv)

        ReDim arrsubd(ubound(arrv))
        ReDim allPt(ubound(arrv))
        ReDim vetix(ubound(arrv))

        Dim i,temp,pangle,plength,sp,ep,b
        Dim counter : counter = 0
        For i=0 To ubound(arrv) - 1
        
                sp = (arrv(i))
                ep = (arrv(i + 1))
        
                temp = Rhino.Angle(sp, ep)
                pangle = temp(0)
                plength = Rhino.Distance(sp, ep)
                arrsubd(i) = Rhino.Polar(sp, pangle, (plength / 3))
        
        Next
         arrsubd(i) = arrsubd(0)       <---多加此行
        subdividepolyline = arrsubd
End Function

yyjyzb

登录/注册后可看大图

月之眼

yyjyzb 发表于 2014-5-23 22:05

                               
登录/注册后可看大图

您好，很冒昧插楼，因为看到您对VB有一定了解。我现在想要用VB实现这个一个图形，希望输入参数是正方形的 ...

循环就能实现

横穿马路

谢谢分享,辛苦了。

DONNA

我也帮顶下，希望有更多人看到集思广益。