points3d.arepointscoplanar

Replies to This Discussion

Permalink Reply by David Rutten on January 21, 2011 at 12:55pm

Rhino.Geometry.Plane.FitPlaneToPoints()

 

This function has two overloads (i.e. the same function name but with different parameters). One of the overloads allows you to pass in a Double that will be filled out by the function. This Double will contain the maximum deviation for the Plane fit result. If this deviation is larger than your planarity tolerance, then the points are not co-planar.

 

This works for any number of points, so you'll need to put p, q, r & s into a collection of sorts:

 

Dim pf As Plane        

Dim dev As Double        

Dim rc As PlaneFitResult = Plane.FitPlaneToPoints(New Point3d() {p, q, r, s}, pf, dev)        

If (dev <= tolerance) Then          

  'Hurray!        

Else          

  'Boo!        

End If

 

--

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by Mishkaduh on January 21, 2011 at 5:58pm

thank you David and thanks so much for the explanation.