犀牛4.0有一次性选取所有的线做成圆管吗？

小真

谁有犀牛4.0有一次性选取所有的线做成圆管的东西？

优胜服务莫老师

你自己做一个吧，
指令是
-_Runscript (  
hyde_pipe
Sub hyde_pipe
  h1=Rhino.getobjects("Pick some Curve ?", 4)
  If  IsNull(h1) Then Exit Sub
  H2 = Rhino.RealBox ("Enter a radius value", 1.0 )

For  Each h In h1
  Rhino.command " _SelNone"
    Rhino.selectobject h
  cmd="pipe " & H2 & " enter enter"
  If Rhino.IsCurveClosed(h) Then

    Rhino.command cmd
  Else
   Rhino.command cmd
  v1=Rhino.lastobject
    Rhino.command " _SelNone"   
     p1=Rhino.CurveEndPoint(h)
     p2=Rhino.CurveStartPoint(h)
     Rhino.AddSphere p1, H2
  v2=Rhino.lastobject     
     Rhino.AddSphere p2, H2
  v3=Rhino.lastobject         
  
   
End If      
  Next
   
End Sub
)

小真

优胜模具资料网 发表于 2014-11-7 20:35
你自己做一个吧，
指令是
-_Runscript (  

我试下可以不