NCF参数化建筑论坛

标题: 谁能帮看看弄了两天了 [打印本页]

作者: jianzhumdx 时间: 2011-4-20 20:11
标题: 谁能帮看看弄了两天了
Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2011年4月20日 10:38:27

Call Main()
Sub Main()

Dim arrstrObjects,Num,strObjectRef,VerticesRef,i

arrstrObjects=rhino.GetObjects("Generating......")

Num=rhino.SelectObjects(arrstrObjects)

ReDim arrVertices(Num-1)

For i= 0 To (Num-1)

arrVertices(i)=rhino.PolylineVertices(arrstrObjects)
’这里出现数据不匹配，是不是因为上面这个命令只支持单个物体的输入啊？

Next

strObjectRef=rhino.GetObject("select ")

VerticesRef=rhino.PolylineVertices(strObjectRef)

strPrototype=rhino.GetObjects("select the prototype")

For i =0 To Num-1

rhino.OrientObjects strPrototype,VerticensRef, arrVertices

Next

rhino.print"finish"

End Sub

作者: jianzhumdx 时间: 2011-4-20 20:13
1# jianzhumdx 但是循环是不是已经确保每次都是取单个的值啊？

作者: wenchongyun 时间: 2011-4-21 16:04
“arrstrObjects=rhino.GetObjects("Generating......")”选取的是多个物体，所得到的数据类型是array

作者: ping88 时间: 2011-4-22 01:05
天道酬勤

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