小试--开洞代码

1235813 · 发表于 2011-1-3 18:09:23

本帖最后由 1235813 于 2011-1-3 18:16 编辑

Option Explicit

Call Main()
Sub Main()

dim srfs
dim p()
srfs=rhino.GetObjects("planar surfaces",8,true,true)
dim j
call rhino.EnableRedraw(false)
for j=0 to ubound(srfs)

dim srf
  srf=srfs(j)
'dim p
'p=rhino.surfacepoints(srf)

  dim c
  dim c1
  c=rhino.duplicatesurfaceborder(srf)
  c1=rhino.explodecurves(c)

  dim i,n
  n=ubound(c1)
  redim p(n)
  for i=0 to ubound(c1)
p(i)=rhino.CurveStartPoint(c1(i))
  Next


  dim pointscount
  pointscount=ubound(p)+1
  redim preserve p(pointscount)
  p(pointscount)=p(0)

  'call rhino.addpoints(p)
  'dim i,j
  'j=0
  'for each i in p
  'call  rhino.addtext(j,i)
  'j=j+1
  'Next

  dim c2,srf2
  c2=rhino.AddCurve(p,3)
  srf2=rhino.AddPlanarSrf(c2)
  call rhino.BooleanDifference(srf,srf2)

  call rhino.DeleteObjects(c)
  call rhino.DeleteObjects(c1)
  call rhino.DeleteObject(c2)

next

call rhino.EnableRedraw(true)
End Sub

好像需要rhino5.0支持

登录/注册后可看大图

没碗 · 发表于 2011-1-3 19:03:24

～中间也是布尔之后的开洞么？挺不错的～

1235813 · 发表于 2011-1-3 22:09:15

是的，布尔运算

TG123 · 发表于 2011-1-5 14:11:35

哇！这个好啊！谢谢楼主

nelson241930 · 发表于 2011-1-28 04:58:32

相当不错学习

LAVAHA · 发表于 2011-1-28 21:55:20

开得有点怪异。。。不过试试吧

zetter · 发表于 2011-3-24 07:50:50

谢谢楼主分享

ddrddrblueworm · 发表于 2011-3-31 14:37:52

我来学习，我来攒分。。。

cuilei33 · 发表于 2011-12-9 21:58:57

谢谢。。。。。。

howldyx · 发表于 2011-12-14 18:17:18

谢谢楼主分享

JiangLi.arch · 发表于 2011-12-14 19:28:27

谢谢lz分享啦。哎为了照度跟权限，没办法了~

houguanyu · 发表于 2012-1-5 10:15:09

学习学习学习

默契 · 发表于 2012-3-1 08:41:36

实验一下!然后回来支持你!

uniqueorange · 发表于 2012-3-6 14:32:48

不错啊~Rhino4好像也行吧

pyh4pyh4 · 发表于 2012-3-7 15:35:22

看的头发晕

daiiisy · 发表于 2012-3-9 11:06:37

感谢分享~~~~~~

帐号		自动登录	找回密码
密码			注册

[个人作品] 小试--开洞代码

评分