intersect a trimmed surface with a line in vb

i have a field of points and for each points a list of lines, wich represent the sun direction of a certain time.
The aim is to intersect those lines with a trimmed surface. For each intersection with this surface the related sunhours of this points grows by one...

My Problem is that I don't know how to intersect a trimmed surface with a line in vb?
How can i solve that? Thanks a lot

Dim sunhours As New List(Of Integer)
Dim sunline As New OnLine

Dim i As Integer
For i = 0 To srfPts.Count - 1
sunhours.Add(0)
Dim j As Integer
For j = 0 To sunvecs.Count - 1
sunline.Create(srfPts(i), srfPts(i) + sunvecs(j))
'OnUtil.ON_Intersect(sunline,) 'no intersection operation for trimmed surfaces????
If ' intersection with trimmed surface results in a point then
sunhours(i) += 1
End If
Next
Next
A = sunhours

Replies to This Discussion

Permalink Reply by Vicente Soler on May 17, 2009 at 12:07pm

I think there's no need for scripting to achieve this. Try something like this:

Permalink Reply by Franz Kreczy on May 17, 2009 at 1:07pm

Thanks for your fast answer.
I tried what you propose, but it doesn't take the 30 paths from the points but the 12 paths from the vectors. see (picture, and file)

Attachments: