How to convert grasshopper objects to IRhinoObject?

Replies to This Discussion

Permalink Reply by David Rutten on August 19, 2010 at 6:56am

Daniel,

what geometry do you have, where did they come from and which SDK are you using?

--
David Rutten
david@mcneel.com
Poprad, Slovakia

• ▶ Reply

Permalink Reply by Daniel Xiong on August 19, 2010 at 7:02am

They are coming from the Grasshopper components like breps and geometries. I am using .net sdk.

• ▶ Reply

Permalink Reply by Daniel Xiong on August 19, 2010 at 7:04am

I want to zoom the viewport based on geometries. I am trying to use the way proposed in the following link:
http://wiki.mcneel.com/developer/sdksamples/zoomtoobject

• ▶ Reply

Permalink Reply by David Rutten on August 19, 2010 at 7:24am

Ok, I wouldn't bother with the RhUtil::RhinoGetTightBoundingBox method. You have a List of geometries, just call GetBoundingBox() on each one of those and Union the boundingboxes together.

My Rhino_DotNet is a bit rusty, but I just wrote code yesterday for doing this in RhinoCommon. Try the following:

Private Sub RunScript(ByVal geo As List(Of OnBrep), ByRef A As Object)
   Dim box As New OnBoundingBox()

   For Each brp As OnBrep In geo
     Dim p0 As New On3dpoint
     Dim p1 As New on3dpoint
     brp.GetBoundingBox(p0, p1)
     box.Set(p0, True)
     box.Set(p1, True)
   Next

   Dim view As MRhinoView = RMA.Rhino.RhUtil.RhinoApp().ActiveView
   view.ActiveViewport().DollyExtents(box, RMA.OpenNURBS.IOn.coordinate_system.world_cs)
   view.Redraw()
End Sub

--
David Rutten
david@mcneel.com
Poprad, Slovakia

• ▶ Reply

Permalink Reply by Daniel Xiong on August 19, 2010 at 7:37am

Thanks David, you really solved my problem. One more question. What if the geometries inputed contain both mesh and brep? Which hint should I use for the input?

• ▶ Reply

Permalink Reply by David Rutten on August 19, 2010 at 7:56am

Yes, that is a problem. Perhaps it's time to switch to Grasshopper 0.7 and RhinoCommon? The code would look like this:

Private Sub RunScript(ByVal geo As List(Of GeometryBase), ByRef A As Object)
   Dim box As BoundingBox = BoundingBox.Empty
   For Each obj As GeometryBase In geo
     box.Union(obj.GetBoundingBox(True))
   Next
   doc.Views.ActiveView.ActiveViewport.ZoomBoundingBox(box)
End Sub

--
David Rutten
david@mcneel.com
Poprad, Slovakia

• ▶ Reply

Permalink Reply by Daniel Xiong on August 19, 2010 at 8:16am

looks interesting. I would try that. Thanks again:)

• ▶ Reply