Re: surfaceList intersection with curvesList

[dima.archit...@gmail.com]

hi David,

thank you a lot! and sorry for my English.

I'm trying to make the intersection points of,
the two lines that intersected by a cylinder,
and check the distance between them for adding lines.

but I got just the warnings( 
http://groups.google.com/group/grasshopper3d/web/warning_Dima.jpg
)


      Dim pts As New List(Of On3dPoint)
    Dim pts_B As New List(Of On3dPoint)

    For Each cyl As OnBRep In cylinders

      For i As int32=0 To Crvs_top_surface.count

        '______top pts
        Dim points As On3dPointArray
        Dim overlaps As OnCurve()
        If (Not RhUtil.RhinoCurveBrepIntersect(Crvs_top_surface.item
(i), cyl, 0.001, overlaps, points)) Then Continue For
        If (points.Count() = 0) Then Continue For

        For Each pt As on3dpoint In points
          pts.Add(pt)
        Next

        '____bottom pts
        Dim points_B As On3dPointArray
        Dim overlaps_B As OnCurve()
        If (Not RhUtil.RhinoCurveBrepIntersect(Crvs_bottom_surface.item
(i), cyl, 0.001, overlaps_B, points_B)) Then Continue For
        If (points_B.Count() = 0) Then Continue For

        For Each pt_B As on3dpoint In points_B
          pts_B.Add(pt_B)
        Next

      Next i

    Next

    A = pts
    B = pts_B