Graft nth

Replies to This Discussion

Permalink Reply by Seb Andraos on December 8, 2011 at 3:33pm

I know this is an old post but does this exist now? If not, Peter, would you mind sharing your VB component?

Permalink Reply by Chris Tietjen on December 8, 2011 at 6:06pm

I think Cull Pattern will do this.  After choosing the pattern select Graft at the output.

Permalink Reply by Jissi Choi on December 8, 2011 at 10:56pm

Yes.. I have some allocation components for this use..

I will post my components soon..

It includes Allocation with Branches, Allocation with # of Items..

Anyway, it can be done with path mapper.. (using %, \ )

Permalink Reply by peter on December 9, 2011 at 2:10am

sure, will upload later today ...

Permalink Reply by Seb Andraos on December 9, 2011 at 2:45am

Thanks all. Chris or Jissi, any slightly more specific instruction on either of these methods would be great. Cull patterns, splitting masks etc are all still quite unknown territory for me. Thanks again

Permalink Reply by Jissi Choi on December 9, 2011 at 2:46am

 

I post some useful components for List Management..

 

http://www.grasshopper3d.com/profiles/blogs/tree8-list-management-c...

Permalink Reply by Seb Andraos on December 9, 2011 at 2:54am

Thanks for the phenomenally fast reply, they are a great little set of components. Much appreciated.

Permalink Reply by peter on December 9, 2011 at 10:57am

see attached the VB Component

not yet testing in the latest GH though ...

hope this is useful,

Peter

 

Attachments:

• GH graft every n (from GH 060043 plus)[autosave].gh, 4 KB

Permalink Reply by Seb Andraos on December 9, 2011 at 2:09pm

Thanks Peter, it's absolutely spot on and works just fine in 0.8.0061. Nice for me to see what's going on inside as well, should be helpful for writing VB for myself

Permalink Reply by Jissi Choi on December 10, 2011 at 11:58am

The script doesn't work for multiple lists..

 

 

I revised your script in two alternatives..

 

It collects data not as dataList but as dataTree..

 

#1

 

Private Sub RunScript(ByVal tree_in As DataTree(Of Object), ByVal n As Integer, ByRef A As Object, ByRef B As Object)
    'your code goes here…

    Dim tree_out As New DataTree(Of Object)

    Dim count  As Int32 = 0
    Dim branch As Int32 = 0

    For i As Int32 = 0 To tree_in.Paths.Count - 1

      Dim path As GH_Path = tree_in.Paths(i)
      Dim listdata As List(Of Object) = tree_in.Branches(i)

      For j As Int32 = 0 To listdata.Count - 1

        Dim newpath As GH_Path = path.AppendElement(branch)

        count += 1
        If (count >= n) Then
          count = 0
          branch += 1
        End If

        tree_out.Add(listdata(j), newpath)
      Next

      count = 0
      branch = 0

    Next

    A = tree_out
   
  End Sub

 

#2

 

  Private Sub RunScript(ByVal tree_in As DataTree(Of Object), ByVal n As Integer, ByRef A As Object, ByRef B As Object)
    'your code goes here…

    Dim tree_out As New DataTree(Of Object)

    Dim count  As Int32 = 0
    Dim branch As Int32 = 0

    For i As Int32 = 0 To tree_in.Paths.Count - 1

      Dim path As GH_Path = tree_in.Paths(i)
      Dim listdata As List(Of Object) = tree_in.Branches(i)

      Dim itemcount As Int32 = listdata.Count
      Dim loops As Int32 = Math.Floor(itemcount / n)
      Dim allocated As Int32 = loops * n

      For j As Int32 = 0 To loops - 1

        tree_out.AddRange(listdata.GetRange(j * n, n), path.AppendElement(j))

      Next

      If (allocated < itemcount) Then

        tree_out.AddRange(listdata.GetRange(allocated, itemcount - allocated), path.AppendElement(loops))

      End If

    Next

    A = tree_out

  End Sub

 

 

Attachments:

• GHgraft_revised.gh, 6 KB