Parametric Translation

Hi everyone,

I wrote this script but it doesn't work. I don't know what's wrong. Please help! Thx!

Private Sub RunScript(ByVal brep As Brep, ByVal vector As List(Of Vector3d), ByRef A As Object)
Dim breps As New List(Of Brep)
Call translate(breps, brep, vector)
A = breps

End Sub

'<Custom additional code>
Sub translate(ByRef breps As List(Of Brep), ByVal brep As Brep, ByVal vector As List(Of Vector3d))
If breps.Count() > vector.Count() Then Exit Sub
Dim v0 As New Vector3d
Dim count As Integer
count = vector.Count()
For i As Integer = 0 To count - 1
v0 = vector(i)
brep.translate(v0)
breps.Add(brep)
i = i + 1
Next
Call translate(breps, brep, vector)
End Sub

Replies are closed for this discussion.

Replies to This Discussion

Permalink Reply by Andrew Heumann on November 24, 2012 at 3:09pm

you've created a recursive function with no way out! The subroutine "Translate" calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate" which calls the subroutine "Translate".... you get the picture.

It would be helpful to give an explanation of what you're trying to do so we can make suggestions about how to accomplish it.

Permalink Reply by Behnood Eghbali on November 25, 2012 at 12:38am

Here's the idea,

First we got one box(green box) and a list of tangent vectors. The idea is moving this box by its own tangent vector on the curve.(white box) and this "new" box generates the next one by its own tangent vector on the curve... and this happens to the last item. Here's the algorithm:

B0 ----> B1

B1 ----> B2

B2 ----> B3

B3 ----> B4

...

Permalink Reply by Behnood Eghbali on November 25, 2012 at 10:52pm

Please Help! :(

Permalink Reply by David Rutten on November 26, 2012 at 3:44am

So where does the curve come in? Your code does not mention any curves, only a list of vectors, which are inputted and therefore known ahead of time.

I also don't see the need to both iterate and recurse. Surely if you have a list of vectors all you need is iteration?

Private Sub RunScript(ByVal G As GeometryBase, ByVal v As List(Of Vector3d), ByRef A As Object) Dim geometry As New List(Of GeometryBase) For i As Integer = 0 To v.Count - 1 'Duplicate the geometry because you kept 'transforming the same one over and over. G = G.Duplicate() G.Translate(v(i)) geometry.Add(G) Next A = geometry End Sub

David Rutten

david@mcneel.com

Poprad, Slovakia

Permalink Reply by Behnood Eghbali on November 26, 2012 at 6:43am

Dear David,
This is the whole idea: