Re: surfaceList intersection with curvesList

Wed, 18 Feb 2009 07:19:35 -0800 

Hi All

basically I want to intersect breps and curves,
I have chosen vb.net component, and wrote a script...


Sub RunScript(ByVal cylinders As List(Of OnBrep), ByVal
Crvs_top_surface As List(Of OnCurve), ByVal Crvs_bottom_surface As List
(Of OnCurve))

    Dim arrPts As New List(Of on3dpointarray)
    Dim i As Int16

    Dim crv As OnCurve, cyl As OnBrep

    For Each cyl In cylinders

      For Each crv In Crvs_top_surface

        Dim rc As Boolean = rhutil.RhinoCurveBrepIntersect(crv, cyl,
0.001)

        If Isarray(rc) Then
          ReDim Preserve arrPts(i)
          arrPts(i) = rc
          i = i + 1
        End If

      Next

    Next

    a = arrPts
  End Sub

all seems logic, but it not works:((

can somebody of you GH-profs help me?

here are the files:
http://groups.google.com/group/grasshopper3d/web/crvBrepInters.3dm
http://groups.google.com/group/grasshopper3d/web/crvBrepInters.ghx

thank you for any help!
Dimitry

Reply via email to