谁能帮看看 弄了两天了

jianzhumdx

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

1# jianzhumdx 但是循环是不是已经确保每次都是取单个的值啊？

wenchongyun

“arrstrObjects=rhino.GetObjects("Generating......")”选取的是多个物体，所得到的数据类型是array

ping88

天道               酬勤