Collision test between solid objects (genoform)

Replies to This Discussion

Permalink Reply by Vicente Soler on June 27, 2012 at 3:15pm

Try something like this:


Private Sub RunScript(ByVal c As List(Of Curve), ByVal r As Double, ByRef A As Object)

Dim intersect As Boolean = True

While intersect
intersect = False

For i As Integer = 0 To c.Count - 2
For j As Integer =i + 1 To c.count - 1
Dim pta, ptb As point3d
c(i).ClosestPoints(c(j), pta, ptb)
Dim dist As Double = pta.DistanceTo(ptb)
If dist / 2 < r Then
intersect = True
c.RemoveAt(i)
Continue While
End If
Next
Next
End While
a = c

End Sub


Create a vb component, name an input 'c' and set it as list of curves, name another input r and set it as double. Input a list of lines that represent the axis of the pipes into 'c' and input a number value to 'r' that is the radius of the pipes. The code checks for each line if it intersects with any other line (it checks if half of the closest distance between the two lines is smaller than r). If it does, it deletes the line from the list and starts again.
The output would be a smaller list of lines that don't intersect each other.

• ▶ Reply

Permalink Reply by Claudio on June 28, 2012 at 9:47am

Hello Vicente Thank youfor your help. I'm not very familiar with scripting but I think I managed to create the vb component with thE ABOVE CODE. But I get an error (please see image)

Thank you for your help

cheers

• ▶ Reply

Permalink Reply by Vicente Soler on June 28, 2012 at 2:41pm

Right click on the 'c' input and set it as 'list'.

• ▶ Reply

Permalink Reply by Claudio on June 29, 2012 at 11:18am

Great Thank you Vicente It works perfectly.

Cheers

• ▶ Reply