曲线网架

licml

之前看到这里有个代码是直线段网架，一直想做个贴着曲面的网架，今天终于做出来了。但是中间有个地方需要改进（见蓝色部分），还望高人指点
Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2011年1月7日 22:50:05

Call Main()
Sub Main()

Dim strSrf,UDomain,VDomain,dU,dV,m,n,i,j
m=rhino.GetReal("input u segment",10)
n=rhino.GetReal("input v segment",10)
strSrf=rhino.GetObject("select a surface:")
UDomain=rhino.SurfaceDomain(strSrf,0)
VDomain=rhino.SurfaceDomain(strSrf,1)
dU=(UDomain(1)-UDomain(0))/m
dV=(VDomain(1)-VDomain(0))/n

Dim Pt,strCur,strStar,arrPlane,strPara,Cir
Dim puv():ReDim puv(m,n)
Dim p():ReDim p((m+1)*(n+1)-1)
For i = 0 To m
    For j = 0 To n
        puv(i,j)=array(dU*i,dV*j)
        p(i*(m+1)+j)=Rhino.EvaluateSurface (strSrf, puv(i,j))
        p(j)=p(i*(m+1)+j)
    Next
    strCur=rhino.AddInterpCrvOnSrf (strSrf,array(p(0),p(1),p(2),p(3),p(4),p(5),p(6),p(7),p(8),p(9),p(10)))
                '这里，怎么把p写进一个array里面，记得之前看过有只增加数据，不覆盖原数据的办法，但找不到在哪看的了
    strStar=rhino.CurveStartPoint(strCur)
    strPara=rhino.CurveClosestPoint(strCur,strStar)
    arrPlane=rhino.CurvePerpFrame(strCur,strPara)
    Cir=rhino.AddCircle(arrPlane,0.2)
    rhino.addsweep1 strCur,Cir

Next

For j=0 To n
    For i=0 to m
        puv(i,j)=array(dU*i,dV*j)
        p(i*(m+1)+j)=Rhino.EvaluateSurface (strSrf, puv(i,j))
        p(i)=p(i*(m+1)+j)
    Next
    strCur=rhino.AddInterpCrvOnSrf (strSrf,array(p(0),p(1),p(2),p(3),p(4),p(5),p(6),p(7),p(8),p(9),p(10)))
    strStar=rhino.CurveStartPoint(strCur)
    strPara=rhino.CurveClosestPoint(strCur,strStar)
    arrPlane=rhino.CurvePerpFrame(strCur,strPara)
    Cir=rhino.AddCircle(arrPlane,0.2)
    rhino.addsweep1 strCur,Cir
Next
End Sub

登录/注册后可看大图

njyqqq

不错啊，好人{:3_56:}

licml

蓝色部分是纯手工录入，还望被指点，怎么做比较好，呵呵呵

licml

to m，粘贴出了问题，我把rvb贴上来 1101_curveOnSrf_temp.rvb (1.51 KB, 下载次数: 29)

2011-1-10 09:37 上传

点击文件名下载附件

夜神

redim preserve p(10)
这样p就只保留从0到10的11个值，后面的都没了。

licml

可我已经定义一个ReDim p((m+1)*(n+1)-1)，我改怎么写：
For i = 0 To m
                ReDim Preserve p(n)
                For j = 0 To n
                        puv(i,j)=array(dU*i,dV*j)
                        p(i*(m+1)+j)=Rhino.EvaluateSurface (strSrf, puv(i,j))
                        p(j)=p(i*(m+1)+j)
                        p(n)=p(j)
                Next
30                strCur=rhino.AddInterpCrvOnSrf (strSrf,array(p(n)))
上面写的，老说我30行array required
对于array，我还真有点糊涂

kebu

谢谢分享！！！

licml

搞定了，搞定了！用一个循环给数组数值，就可以了

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2011年1月7日 22:50:05

Call Main()
Sub Main()
        Dim strSrf,UDomain,VDomain,dU,dV,m,n,i,j
        m=rhino.GetReal("input u segment",10)
        n=rhino.GetReal("input v segment",10)
        strSrf=rhino.GetObject("select a surface:")
       
        UDomain=rhino.SurfaceDomain(strSrf,0)
        VDomain=rhino.SurfaceDomain(strSrf,1)
        dU=(UDomain(1)-UDomain(0))/m
        dV=(VDomain(1)-VDomain(0))/n
       
        Dim Pt,strCur,strStar,arrPlane,strPara,Cir
        Dim puv():ReDim puv(m,n)
        Dim p():ReDim p((m+1)*(n+1)-1)
        Dim arr1():ReDim arr1(n)
        For i = 0 To m
                For j = 0 To n
                        puv(i,j)=array(dU*i,dV*j)
                        p(i*(m+1)+j)=Rhino.EvaluateSurface (strSrf, puv(i,j))
                        p(j)=p(i*(m+1)+j)
                        arr1(j)=p(j)
                Next
                strCur=rhino.AddInterpCrvOnSrf (strSrf,arr1)
                strStar=rhino.CurveStartPoint(strCur)
                strPara=rhino.CurveClosestPoint(strCur,strStar)
                arrPlane=rhino.CurvePerpFrame(strCur,strPara)
                Cir=rhino.AddCircle(arrPlane,0.2)
                rhino.addsweep1 strCur,Cir
        Next
       
        Erase arr1
       
        Dim arr2():ReDim arr2(m)
        For j=0 To n
                For i=0 To m
                        puv(i,j)=array(dU*i,dV*j)
                        p(i*(m+1)+j)=Rhino.EvaluateSurface (strSrf, puv(i,j))
                        p(i)=p(i*(m+1)+j)
                        arr2(i)=p(i)
                Next
                strCur=rhino.AddInterpCrvOnSrf (strSrf,arr2)
                strStar=rhino.CurveStartPoint(strCur)
                strPara=rhino.CurveClosestPoint(strCur,strStar)
                arrPlane=rhino.CurvePerpFrame(strCur,strPara)
                Cir=rhino.AddCircle(arrPlane,0.2)
                rhino.addsweep1 strCur,Cir
        Next
        Erase arr2

End Sub

kanzhuobanba

支持斑竹！！！！！！！！！！！

nelson241930

不错不错 支持一下！

wawa

quite good!

yao124

想看看！！！

uvwswo

谢谢，不过图片真的水了点。。。

Tony

学习了~~~~~~~

anboyh

谢谢了学习了。

wrn

hao....................

zerocool

好好，不错

混血王子

sjfgsakjfhsakjhlfsdjfslkfjs

hanfang2004

向楼主学习，准备精细学习VB脚本，网架一般做双层的

zpt_88

谢谢学习~~