Rhino(犀牛)中国技术支持与推广中心

标题: 没完成的拍平script [打印本页]

作者: 易人 时间: 2009-4-2 15:06
标题: 没完成的拍平script
看到别人介绍的内容，觉得很好。试验后发现缺少代码。大家讨论一下。
把未完的也发在这里：
以下是源代码：
option Explicit
'Script written by [ ]
'Script copyrighted by [ ]
'Script version 2009年3月26日 12：00：00

Call Main()
Sub Main()
Dim ArrObjects, arrReference, arrTarget, arrPoints, mubiao, abc
abc=Rhino.GetObjects("Select Objects to orient")
mubiao=rhino.GetPoint("point")
arrObjects=Rhino.copyObjects( abc, array(0,0,0), array(1,0,0))
Dim i
For i=0 To ubound(arrObjects)
      Dim n:n=160
      Dim z1:z1=5
      Dim xx:xx=10+i*n
      Dim arr:arr=array(array(mubiao(0)+xx,mubiao(1),0),_
         array(mubiao(0)+xx+n,mubiao(1),0),array(mubiao(0)+xx,mubiao(1)+xx+n,0))
      Dim arrmp:arrMP = Rhino.SurfaceAreaCentroid(arrobjects(i))
      Rhino.addtext "NO.="&I ,arrMP(0),zi
      Dim b
      b=paiping (arrobjects(i),arr,i,zi)
Next
End Sub

Function Paiping(wuti,arr,i,zi)
Dim arrReference, arrTarget, arrPoints
arrPoints = Rhino.SurfacePoints(wuti)
arrReference = array(arrPoints(0),arrPoints(2),arrPoints(1))
arrTarget = arr

Dim wuti2:wuti2=Rhino.OrientObject (wuti,arrReference,arrTarget)

Dim arrmp:arrMP = Rhino.SurfaceAreaCentroid(wuti2)
Dim t:t=Rhino.addtext( "NO.="&i ,arrMP(0),zi)
Rhino.ObjectColor wuti2, RGB(rnd*255,rnd*255,rnd*255)
End Function

原截图中是用Monkey for Rhino合成的，所以格式很规范。

把空间上的面拍平到xy平面上，可以根据标注的编号对位00.jpg (85.29 KB, 下载次数: 1)

把空间上的面拍平到xy平面上，可以根据标注的编号对位01.jpg (17.67 KB, 下载次数: 1)

把空间上的面拍平到xy平面上，可以根据标注的编号对位02.jpg (17.83 KB, 下载次数: 1)

把空间上的面拍平到xy平面上，可以根据标注的编号对位03.jpg (40.03 KB, 下载次数: 1)

作者: wudi1212 时间: 2009-4-2 21:56
记得在哪个网站上面看过

作者: 易人 时间: 2009-4-3 09:20
是别的网站上的，但其30，31，33行的代码缺失。故发在这里。求解。
和上海的原作者联系过了。

[ 本帖最后由易人于 2009-4-3 10:27 编辑 ]

作者: lxiao13 时间: 2009-4-10 02:05
主要是30行出问题了
arr后面少东西了吧

作者: smalltotal 时间: 2009-10-14 16:05
怎么没有下文了呀？？
script 看不懂啊

欢迎光临 Rhino(犀牛)中国技术支持与推广中心 (http://bbs.rhino3d.asia/)