Curve belong to a surface

Replies to This Discussion

Permalink Reply by David Rutten on February 26, 2011 at 8:07am

Hi RG,

 

a curve never belongs to a surface. What do you mean exactly?

 

--

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by RG on February 26, 2011 at 8:30am

Private Sub RunScript(ByVal courbe As Curve, ByVal surface As Surface, ByRef A As Object)

    Dim L_1 As New list (Of interval)
    Dim x As Intersect.CurveIntersections = Intersect.Intersection.CurveSurface(courbe, surface, 0.0001, 0.0001)

    If x.count > 0  Then
      For i As Integer = 0 To x.Count() - 1
        If (x(i).IsOverlap) Then
          L_1.add(x.item(i).OverlapA)
        End If
      Next
    End If

    If L_1.count() = 0 Then
      A = False
    Else
      A = L_1
    End If

Permalink Reply by David Rutten on February 26, 2011 at 9:44am

You want to know whether a curve does not deviate from a given surface (or brep?) more than X units?

 

--

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by RG on February 26, 2011 at 10:06am

yes if it's possible!

Thanks to help!