Test if a point is inside a curve/polyline or on a surface

Replies to This Discussion

Permalink Reply by Alexander Greil on May 27, 2013 at 7:00am

sorry, have got it,

for all who are interestet

'Dim g as BrepFace
Dim tolerance as Double = doc.ModelAbosluteTolerance
Dim points_inside as New List(of Point3D)

For Each pt as Point3d in pt_list
Dim dist As Double
Dim d As Double = Double.MaxValue

dist = g.DuplicateFace(False).ClosestPoint(pt_to_Add).DistanceTo(pt_to_Add)

If(dist < d)
d = dist
End If

If(d <= tolerance) Then
points_inside.Add(pt_to_Add)
End If
Next