Grasshopper

algorithmic modeling for Rhino

Just as the title says - is there a way to cast data tree(of object) onto GH_Structure ? I see that the most(?) general type of data in gh_structure is GH_GOO, am I wrong? and if thats true, how else can I do that ?

Views: 2267

Replies to This Discussion

Out of curiosity, why are you using both DataTrees and GH_Structures?

--

David Rutten

david@mcneel.com

I want to make a component which will store datatree directly in the input of another component... using input.addvolatitedatatree(and here it wants a gh_structure).

And this is a Script component right? You're not doing this in Visual Studio?

Are you trying to set the volatile or the persistent data of another parameter? What data-type is in the tree, or should it work for any data type?

--

David Rutten

david@mcneel.com

I'm doing it in the Visual Studio. It should be volatile data of any type (hence system.object).

In that case I recommend ignoring DataTree altogether. Just use GH_Structure from the start. 

Maybe it's time to post some code...

--

David Rutten

david@mcneel.com

OK, so here are the two guys -> sender and receiver. Forget the previous questions since this code is a little different.

1. sender gets data from its input(0)

2. sender sends data with output(0)

3. receiver gets data from sender via input (0) < the data here may be changed in the meantime, for instance if its a double then I would like to add 1 to it.

4. receiver sends data to sender's input(2)

5. go to 1.

VS 2013 studio project folder

SENDER 

Public Class loopStart
Inherits GH_Component

Dim cnt As Integer

Friend Property counter() As Integer
Get
Return cnt
End Get
Set(value As Integer)
cnt = value
End Set
End Property

Dim iData As New GH_Structure(Of IGH_Goo)

Friend Property startData() As GH_Structure(Of IGH_Goo)
Get
Return iData
End Get
Set(value As GH_Structure(Of IGH_Goo))
iData = value
End Set
End Property

Public Sub New()
MyBase.New("loopStart", "loopStart", "Start the loop with this one.", "Extra", "Extra")
End Sub

Public Overrides ReadOnly Property ComponentGuid() As System.Guid
Get
Return New Guid("bdf1b60d-6757-422b-9d2d-08257996a88c")
End Get
End Property

Protected Overrides Sub RegisterInputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_InputParamManager)
pManager.AddGenericParameter("Data", "dIn", "Data to loop", GH_ParamAccess.tree)
pManager.AddIntegerParameter("Steps", "S", "Number of loops", GH_ParamAccess.item)
pManager.AddGenericParameter("<X>", "<X>", "Please leave this one alone, don't input anything.", GH_ParamAccess.tree)
pManager.Param(2).Optional = True
End Sub

Protected Overrides Sub RegisterOutputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_OutputParamManager)
pManager.AddGenericParameter("Data", "dOut", "Data to loop", GH_ParamAccess.tree)
End Sub

Public Overrides Sub CreateAttributes()
m_attributes = New loopStartAttributes(Me)
End Sub

Protected Overrides Sub SolveInstance(ByVal DA As Grasshopper.Kernel.IGH_DataAccess)

Dim numLoop As Integer
DA.GetData(1, numLoop)

Dim loopDt As New Grasshopper.Kernel.Data.GH_Structure(Of IGH_Goo)

If cnt = 0 Then
Me.startData.Clear()
DA.GetDataTree(0, Me.startData)
loopDt = startData.Duplicate
DA.SetDataTree(0, loopDt)
End If

If cnt < numLoop - 1 And cnt > 0 Then
DA.GetDataTree(2, loopDt)
DA.SetDataTree(0, loopDt)
Me.ExpireSolution(True)
Else
DA.GetDataTree(2, loopDt)
DA.SetDataTree(0, loopDt)
End If

cnt += 1

End Sub

End Class

RECEIVER

Public Class loopEnd
Inherits GH_Component

Dim aData As New GH_Structure(Of IGH_Goo)

Friend Property anyData() As GH_Structure(Of IGH_Goo)
Get
Return aData
End Get
Set(value As GH_Structure(Of IGH_Goo))
aData = value
End Set
End Property

Public Sub New()
MyBase.New("loopEnd", "loopEnd", "End the loop with this one.", "Extra", "Extra")
End Sub

Public Overrides ReadOnly Property ComponentGuid() As System.Guid
Get
Return New Guid("3ffa3b66-8160-4ab3-87c9-356b2c17aadd")
End Get
End Property

Protected Overrides Sub RegisterInputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_InputParamManager)
pManager.AddGenericParameter("Data", "dIn", "Data to loop", GH_ParamAccess.tree)
End Sub

Protected Overrides Sub RegisterOutputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_OutputParamManager)
pManager.AddGenericParameter("Data", "dOut", "Data after the loop", GH_ParamAccess.tree)
End Sub

Protected Overrides Sub SolveInstance(ByVal DA As Grasshopper.Kernel.IGH_DataAccess)
Me.aData.Clear()
DA.GetDataTree(0, Me.aData)
runner()

DA.SetDataTree(0, Me.aData)
End Sub

Sub runner()

Dim doc As GH_document = Grasshopper.Instances.ActiveCanvas.Document
Dim docl As list(Of iGH_DocumentObject) = (doc.Objects)

For i As Integer = 0 To docl.count - 1 Step 1
Dim comp As Object = docl(i)
If comp.NickName = "loopStart" Then
Dim compp As IGH_Param = comp.Params.input(2)
compp.VolatileData.Clear()
compp.AddVolatileDataTree(anyData)
Exit For
End If
Next
End Sub

End Class

The attached code seems to work though I'm not exactly sure it's doing what you want it to do.

--

David Rutten

david@mcneel.com

Attachments:

Thanks, it works (with minor changes works exactly as intended).

...also this one works as intended.

Attachments:

RSS

About

Translate

Search

Photos

  • Add Photos
  • View All

Videos

  • Add Videos
  • View All

© 2024   Created by Scott Davidson.   Powered by

Badges  |  Report an Issue  |  Terms of Service