小代码，用了多个函数，哈哈

licml · 发表于 2011-1-5 21:19:06

本帖最后由 licml 于 2011-1-5 21:20 编辑

Dim strCurve,strStartPt,strParam,strTan,arrPlane,arrCircle,b,i,radius
radius=rhino.GetReal("input pipe radius:",1 )
strCurve=rhino.GetObjects("Select curves")

b=Ubound(strCurve)
For i = 0 To b
strStartPt=rhino.CurveStartPoint(strCurve(i))
strParam=rhino.CurveClosestPoint(strCurve(i),strStartPt)
arrPlane=rhino.CurvePerpFrame(strCurve(i),strParam)
'strTan=rhino.CurveTangent(strCurve(i),strParam)
'arrPlane=rhino.PlaneFromNormal(strStartPt,strTan)
arrCircle=rhino.AddCircle(arrPlane,radius)
rhino.addSweep1 strCurve(i),arrCircle
Next

开始用的strTan提取做圆的参考平面，后来一想，有个CurvePerpFrame，呵呵

登录/注册后可看大图

wyx10022 · 发表于 2011-1-5 22:21:26

楼主钻研精神可嘉，破解了RHINO的 PIPE代码

zdb888 · 发表于 2011-1-5 23:18:48

RHINO的 PIPE代码 ??是什么？

licml · 发表于 2011-1-6 12:18:29

太假了，我竟然都成高级会员了，哈哈，感慨下
我周围没有学这个的，只能自己看，我觉得，只要把所有的函数搞透了，什么代码都能写出来，怕就怕想不到用哪个函数
还有，好多东西，看教程不一定理解，但是自己编个代码，就豁然开朗

weiwei · 发表于 2011-1-6 12:18:48

恭喜恭喜，沒想到版主那嚜快就上手了!!

nic8828 · 发表于 2011-1-6 17:58:58

不错学习一下

jasonroc · 发表于 2011-10-28 19:37:47

挺不错的哦

Lxuezhao · 发表于 2011-11-19 15:52:05

很不错！很有用。不只是破解PIPE的问题。赞一个！

metall · 发表于 2012-4-24 10:29:33

只看不说话，感觉RS还行吧

danyufei · 发表于 2013-3-14 13:30:33

!-runscript (
                                          '                SGQ2005-02-25
sub pipes()
dim strobject,spoint,scoord,epoints,ecoords,ecoord,ae
epoints= Rhino.SelectedObjects
radiu=ABS(Rhino.GetString("please input radiu"))
bound=ubound(epoints)

  for index=0 to bound

ecoords = epoints(index)
Rhino.command("'_SelNone")

Rhino.SelectObject  CStr(ecoords)

rhino.command ("! _Pipe  "&radiu&" "&radiu&"enter enter enter")
next
Rhino.command("'_SelNone")
end sub
pipes
)

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

[个人作品] 小代码，用了多个函数，哈哈

评分