Data recorder with boolean input

Replies to This Discussion

Permalink Reply by David Stasiuk on August 8, 2013 at 3:11am

Private Sub RunScript(ByVal d As Object, ByVal r As Boolean, ByRef A As Object)

If r = True Then
out_list.clear
Else
out_list.Add(d)
End If

A = out_list

End Sub

'<Custom additional code>

Dim out_list As New List(Of Object)

'</Custom additional code>
End Class

Permalink Reply by phillip on August 8, 2013 at 3:23am

Fantastic! Thanks a lot, David.

Permalink Reply by phillip on August 8, 2013 at 3:39am

Sorry, one more thing:

I´d like to have the behaviour the same as with the standart component.

So after reset it will output an empty list instead of the latest data provided.

And more important, it needs to follow the tree structure. How to fix this?

Permalink Reply by David Stasiuk on August 8, 2013 at 4:13am

This one is closer...not exact in terms of use, as the native component recognizes when the input values change, and I'm not familiar with how it does that.  Use a boolean toggle for record, and the button for reset.

Private Sub RunScript(ByVal d As DataTree(Of Object), ByVal record As Boolean, ByVal reset As Object, ByRef A As Object)

If reset = True Then
out_tree.clear
ElseIf record = true then
For Each p As GH_Path In d.Paths
Dim out_list As List(Of Object) = d.Branch(p)
out_tree.AddRange(out_list, New GH_Path(p))
Next
End If

A = out_tree

End Sub

'<Custom additional code>

Dim out_tree As New DataTree(Of Object)

'</Custom additional code>

Permalink Reply by phillip on August 8, 2013 at 4:57am

Left out the record part, since it didn´t really help. Would be interesting to get to known Davids (the other one) method for this.

Everything else is exaclty what I was looking for.

I think I got a little closer to understand some things better now.

Thank you!

Permalink Reply by Rajaa Issa on August 8, 2013 at 12:57pm

I would do the same as David suggested. As you suggested, there is no need for the "record" parameter. "Setting the "reset" toggle to "true" clears all values, setting it to false again, starts recording.

------

Private Sub RunScript(ByVal data As DataTree(Of Object), ByVal reset As Boolean, ByRef Rec As Object)

If reset = True Then
  out_tree.clear
Else
  For Each p As GH_Path In data.Paths
    Dim out_list As List(Of Object) = data.Branch(p)
    out_tree.AddRange(out_list, New GH_Path(p))
  Next
End If

Rec = out_tree
End Sub

'<Custom additional code>
Dim out_tree As New DataTree(Of Object)
'</Custom additional code>

Permalink Reply by David Stasiuk on August 8, 2013 at 2:49pm

well...I only added it the second time in order to approximate the existing component...the record/reset parameters are there in order to be able to stop recording without removing the current output...:)

Permalink Reply by ng5 Alex on February 13, 2016 at 7:37am

Hello David,

how could this component store custom data types like volvox point cloud?

best

alex