NCF参数化建筑论坛

标题: 曲线网架 [打印本页]

作者: licml    时间: 2011-1-9 13:36
标题: 曲线网架
本帖最后由 licml 于 2011-1-10 11:54 编辑

之前看到这里有个代码是直线段网架,一直想做个贴着曲面的网架,今天终于做出来了。但是中间有个地方需要改进(见蓝色部分),还望高人指点
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


[attach]13816[/attach]

[attach]13817[/attach]

[attach]13818[/attach]
作者: njyqqq    时间: 2011-1-9 16:58
不错啊,好人{:3_56:}
作者: licml    时间: 2011-1-9 20:15
蓝色部分是纯手工录入,还望被指点,怎么做比较好,呵呵呵
作者: licml    时间: 2011-1-10 09:37
to m,粘贴出了问题,我把rvb贴上来[attach]13905[/attach]
作者: 夜神    时间: 2011-1-10 15:24
redim preserve p(10)
这样p就只保留从0到10的11个值,后面的都没了。
作者: licml    时间: 2011-1-10 20:31
可我已经定义一个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    时间: 2011-1-10 20:53
谢谢分享!!!
作者: licml    时间: 2011-1-10 21:53
搞定了,搞定了!用一个循环给数组数值,就可以了

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    时间: 2011-1-14 08:42
支持斑竹!!!!!!!!!!!
作者: nelson241930    时间: 2011-1-28 04:52
不错不错 支持一下!
作者: wawa    时间: 2011-4-28 17:00
quite good!
作者: yao124    时间: 2011-7-19 21:55
想看看!!!
作者: uvwswo    时间: 2011-7-29 12:24
谢谢,不过图片真的水了点。。。
作者: Tony    时间: 2011-11-5 22:02
学习了~~~~~~~
作者: anboyh    时间: 2011-11-7 14:34
谢谢了学习了。
作者: wrn    时间: 2011-11-19 11:02
hao....................
作者: zerocool    时间: 2012-2-18 16:19
好好,不错
作者: 混血王子    时间: 2012-3-10 18:30
sjfgsakjfhsakjhlfsdjfslkfjs
作者: hanfang2004    时间: 2012-3-13 14:03
向楼主学习,准备精细学习VB脚本,网架一般做双层的
作者: zpt_88    时间: 2012-3-15 11:37
谢谢学习~~
作者: Sue.m    时间: 2012-5-7 19:27
TAT图片还要lux才能看到啊
作者: 335277379    时间: 2012-5-11 01:25
学习了谢谢!
作者: Arsene    时间: 2012-5-12 08:47
学习。。。。。。。。。。。
作者: gavinterry0131    时间: 2012-5-18 10:48
牛人、、、、、
作者: 巴山鬼……    时间: 2012-10-23 13:16
看到了,呵呵.怎么说呢……
作者: Thierry_Mac    时间: 2012-11-23 04:45
好帖,值得学习!
作者: xiniu2012    时间: 2013-1-1 11:17
脚本还不会用,你的程序咋使用啊?
作者: me123    时间: 2023-11-12 20:01
图都看不了啊
作者: 倪小立    时间: 2023-12-19 11:21
非常不错,学习了




欢迎光临 NCF参数化建筑论坛 (http://bbs.ncf-china.com/) Powered by Discuz! X3.2