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

licml

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

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

zdb888

RHINO的 PIPE代码 ??是什么？

licml

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

weiwei

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

nic8828

不错 学习一下

jasonroc

挺不错的哦

Lxuezhao

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

metall

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

danyufei

!-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
)