NCF参数化建筑论坛

标题: RS array require question [打印本页]

作者: weiwei 时间: 2010-11-12 03:59
标题: RS array require question
本帖最后由 weiwei 于 2010-11-12 04:05 编辑

如圖，已經產生出兩個螺旋點，但在數列上並不是array
該如何把這些string point 存到array裡面，並且把兩個螺旋增加線段相連。希望高手能幫我解決謝謝!!

[attach]12364[/attach]

[attach]12365[/attach]
[attach]12367[/attach]

我想問題應該數組沒有assign 到 array陣列上面

----------below is code-----------
[attach]12363[/attach]
Sub Main()

Dim t,Pi
Dim arrpoint(2)
Dim arrPtinter,arrPtouter
Dim npoints

npoints = rhino.GetInteger("ptnumber")
ReDim arrPtinter(npoints)
Pi = rhino.Pi()

For t = 0 To npoints Step 0.025
arrpoint(0) = t*sin(5*t)
arrpoint(1) = t*cos(5*t)
arrpoint(2) = t
arrPtinter(t) = (rhino.AddPoint(arrpoint))

Next

ReDim arrPtouter(npoints)

For t = 0 To npoints Step 0.025

arrpoint(0) = 2*t*sin(5*t)
arrpoint(1) = 2*t*cos(5*t)
arrpoint(2) = t
arrPtouter(t) = (rhino.AddPoint(arrpoint))

Next

Dim i,j

For i = 0 To ubound(arrPtinter)

For j = 0 To ubound(arrPtouter)

Call rhino.AddLine(arrPtinter(i),arrPtouter(j))

Next

Next

End Sub

作者: taliesin 时间: 2010-11-12 16:27
LZ很喜欢脚本么

作者: panhao1 时间: 2010-11-12 20:32
不是报出52行的参数错误了么？
rs是vbscript语法不像mel和maxscript是“原创型”的语法
很容易找错的

作者: iceman 时间: 2010-11-12 21:01
本帖最后由 iceman 于 2010-11-12 21:04 编辑

为什么我其实也不太懂
我改了下就没出错

[attach]12379[/attach]

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2010年11月12日上午 01:53:07

Call Main()
Sub Main()

      Dim t,Pi
      Dim arrpointi(2)
      Dim arrpointO(2)
      Dim arrPtinter,arrPtouter

      Dim npoints
      npoints = rhino.GetInteger("ptnumber")

'-------------------------------------------------------------------

      ReDim arrPtinter(npoints)
      ReDim arrPtouter(npoints)

      Pi = rhino.Pi()

      For t = 0 To npoints Step 0.025

            arrpointi(0) = t * Sin(5*t)
            arrpointi(1) = t * Cos(5*t)
            arrpointi(2) = t

            arrpointO(0) = 2*t*sin(5*t)
            arrpointO(1) = 2*t*cos(5*t)
            arrpointO(2) = t

            Call Rhino.AddPoint(arrpointi)
            Call Rhino.AddPoint(arrpointO)

            Call Rhino.AddLine(arrpointi,arrpointO)

      Next

End Sub

作者: weiwei 时间: 2010-11-12 23:10
感謝感謝，但對於string 轉存到array空間中在取出運用，還是很不熟悉，希望有高手可以發布相關的教程。

謝謝!!

作者: weiwei 时间: 2010-11-12 23:14
剛上手RS讓大家見笑了，還請多包涵...

作者: chair925 时间: 2010-11-13 01:39
很好的教程，多谢分享

作者: kebu 时间: 2011-1-11 00:52
谢谢分享！！！

作者: ninesuns 时间: 2011-12-6 19:31
mel是什么？

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