NCF参数化建筑论坛

标题: RS问题求助 [打印本页]

作者: wangjunxiong 时间: 2012-5-17 22:19
标题: RS问题求助
例如，用 myline=rhino.getobjects("get")
我在犀牛里选择了很多根线，那么在下面的语句中怎么调用每一根线？
例如我要求出每跟线的起点：
Call xialiaokuang()
Sub xialiaokuang()
Dim objectall,i
objectall = rhino.GetObjects("select curves",4,True,True)
call rhino.CurveStartPoint(objectall(i))
End Sub

这明显是错误的，但具体怎么调用，求帮助。

作者: wangjunxiong 时间: 2012-5-17 23:50
本帖最后由 wangjunxiong 于 2012-5-17 23:52 编辑

经过努力，已经把前问题解决。
Call xialiaokuang()
Sub xialiaokuang()
      Dim strObject, spt01,ept01,i,h,x,y
      strObject = Rhino.GetObjects("Select curves",4,True,True)
      If isnull(strObject) Then Exit Sub
      For Each i In strObject
            spt01 = Rhino.CurveStartPoint(strObject(h))
            ept01 = Rhino.CurveEndPoint(strObject(h))
            Rhino.AddPoint spt01
            Rhino.AddPoint ept01
            h=h+1
      Next
End Sub

可是，问题又来了！！
求出了点，那么如何把点的x ，y ，z 单独提取出来呢？？？
我始终都迷迷糊糊这东西是怎么个排列的！GH内排列是十分直观的，但RS真让我摸不着头脑{:3_52:}

作者: 64h8s 时间: 2012-5-18 04:22
2# wangjunxiong
在c#里面就是 spt01.x spt01.y spt01.z就可以了，是一个结构体。但不知rs是不是也这样。

作者: wenchongyun 时间: 2012-5-18 16:30
RS里面如果point是一个点的话（如 Rhino.CurveStartPoint(strObject)返回的值)，那么(point(0),point(1),point(2))是给点的坐标值

作者: wangjunxiong 时间: 2012-5-18 17:49
4# wenchongyun

我想把所有直线的起点和终点做成一个列表，然后把这些点排序，抽出我想要的那一个点！在GH里可以轻松搞定这个问题。RS实在是麻烦，或者是我还没掌握办法。

用循环得到的都是单数据，那么循环N次，我怎么把这N次的结果做成一个表呀？

例如，每条直线有一个端点，有10条直线，那么就有10个端点，我怎么才能把10个端点放在一个列表中，我的意思是怎么把10个端点的坐标写入 array ，或者我怎么同时比较这10个端点的x轴的值的大小？

卡在这里！郁闷呀！搞了一天都没搞懂数组到底怎么使用！唉，真愁！

作者: wangjunxiong 时间: 2012-5-18 19:12
终于还是自己解决了。唉

Call xialiaokuang()
Sub xialiaokuang()
Dim strObject, spt01,ept01,i,h,j,points,arrPoints,arr,p
h = 0
j = 0
strObject = Rhino.GetObjects("Select curves",4,True,True)
If isnull(strObject) Then Exit Sub
Dim array01()
Dim array02()
For Each i In strObject
spt01 = Rhino.CurveStartPoint(strObject(h))
ept01 = Rhino.CurveEndPoint(strObject(h))
h=h+1
ReDim Preserve array01(j)
array01(j)= spt01
ReDim Preserve array02(j)
array02(j)= ept01
j=j+1
Next
arr = Rhino.SortPoints(array01)
For Each p in arr
Rhino.Print Rhino.Pt2Str(p)
Next
End Sub

欢迎光临 NCF参数化建筑论坛 (http://ncf-china.com/)