I have a trimmed surface that I'm trying to perform a line/surface intersection on in VB.NET...
This produces a list of intersecting points, but it does so also for the portions of the surface that have been trimmed away:
Private Sub RunScript(ByVal lnLines As List(Of OnLine), ByVal srfEllipse As OnSurface, ByRef A As Object, ByRef B As Object)
Dim intPnts As Int16
Dim intLines As Int16
intPnts = 0
Dim pntIntersection As New List(Of On3dPoint)
For intLines = 0 To lnLines.Count - 1
Dim arrX As New ArrayOnX_EVENT
Dim linCheck As OnLine = lnLines(intLines)
linCheck.IntersectSurface(srfEllipse, arrX)
If arrX.Count() = 1 Then
Dim X As New OnX_EVENT
x = arrX(0)
Dim ptA As New On3dPoint(X.m_pointA(0))
pntIntersection.Add(ptA)
End If
Next
A = pntIntersection
End Sub
What do I need to do to return only the intersections between my list of lines and the trimmed portion of the surface?
thanks,
Dave
Tags: