algorithmic modeling for Rhino
I am having an intermittent problem with Intersection.MeshRay where it fails to find intersections. These intersections are found with curves and surfaces, but this takes much longer to solve. I baked the mesh and 2 curves which represent the problem vector intersections. The VB script:
Dim cell_tot As New List(Of Integer)
    Dim ray_int As New list(Of line)
    For i As Integer = 0 To cells.Count - 1
      Dim intx As Integer = 0
      For j As Integer = 0 To pts.Count - 1
        For k As Integer = 0 To sample_V.Count - 1
          Dim r As Ray3d = (New Ray3d(pts(j), sample_V(k)))
          Dim cell_intx As Double = Rhino.Geometry.Intersect.Intersection.MeshRay(cells(i), r)
          If cell_intx > 0 Then
            intx = intx + 1
            Dim l As New line(pts(j), sample_V(k), 100)
            ray_int.add(l)
          End If
        Next
      Next
      cell_tot.Add(intx)
    Next
    A = cell_tot
    B = ray_int
This works with 99% of the vectors but seems to systematically miss some. Wondering if it is a tolerance issue or if I am messing up the code. Screenshot of the geometry, rhino model, and GH defn attached.
Thanks,
Jeff
Tags:
 intersection_problem.png, 21 KB
 intersection_problem.png, 21 KB                             problem intersection.ghx, 148 KB
 problem intersection.ghx, 148 KB                             problem intersection.3dm, 40 KB
 problem intersection.3dm, 40 KB                            Welcome to
Grasshopper
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
    © 2025               Created by Scott Davidson.             
    Powered by
    