NCF参数化建筑论坛

标题: 小代码，用了多个函数，哈哈 [打印本页]

作者: licml 时间: 2011-1-5 21:19
标题: 小代码，用了多个函数，哈哈
本帖最后由 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，呵呵
[attach]13564[/attach]

[attach]13565[/attach]

作者: wyx10022 时间: 2011-1-5 22:21
楼主钻研精神可嘉，破解了RHINO的 PIPE代码

作者: zdb888 时间: 2011-1-5 23:18
RHINO的 PIPE代码 ??是什么？

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

作者: weiwei 时间: 2011-1-6 12:18
恭喜恭喜，沒想到版主那嚜快就上手了!!

作者: nic8828 时间: 2011-1-6 17:58
不错学习一下

作者: jasonroc 时间: 2011-10-28 19:37
挺不错的哦

作者: Lxuezhao 时间: 2011-11-19 15:52
很不错！很有用。不只是破解PIPE的问题。赞一个！

作者: metall 时间: 2012-4-24 10:29
只看不说话，感觉RS还行吧

作者: danyufei 时间: 2013-3-14 13:30
!-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
)

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