Wire event

Replies to This Discussion

Permalink Reply by Daniel González Abalde on February 25, 2016 at 8:01am

I managed to touch the wire event by undo operation, but can not access the data of the components involved :/

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

If x Then

If ghDoc Is Nothing Then
ghDoc = Me.Component.OnPingDocument()
AddHandler ghDoc.UndoStateChanged , AddressOf WireEvent
End If
Else

If ghDoc IsNot Nothing Then
RemoveHandler ghDoc.UndoStateChanged , AddressOf WireEvent
ghDoc = Nothing
End If
End If

End Sub

'<Custom additional code>

Public WithEvents ghDoc As gh_document

Sub WireEvent(sender As Object, e As GH_DocUndoEventArgs) Handles ghDoc.UndoStateChanged
If e.Operation = GH_UndoOperation.RecordAdded Then
For Each ac As kernel.Undo.igh_UndoAction In e.Record.Actions
If TypeOf ac Is kernel.Undo.Actions.GH_WireAction Then
'Dim wa As undo.Actions.GH_WireAction = DirectCast(ac, undo.Actions.GH_WireAction)

rhino.RhinoApp.writeline("Wire" & Date.now())
Exit For
End If
Next
End If

End Sub
'</Custom additional code>
End Class

mmm I could deserialize this action and access the data? How I can know what to look for?

Permalink Reply by Long Nguyen on February 25, 2016 at 8:58am

This is one way to do it: Whenever a new component is added to the document, you add a handler to the ObjectChanged event of that component. This handler will have the knowledge whether the source parameter for this component has been changed (i.e. when you connect new wires to it) and also has access to the component itself, so you can record the information accordingly :)

This is how I would do it in C#

private void RunScript()
{
    GrasshopperDocument.ObjectsAdded -= addSourceChangeHandlerToNewlyAddedObjects;
    GrasshopperDocument.ObjectsAdded += addSourceChangeHandlerToNewlyAddedObjects;
}

// <Custom additional code>
void addSourceChangeHandlerToNewlyAddedObjects(Object sender, GH_DocObjectEventArgs e)
{
    foreach (IGH_DocumentObject ghDocumentObject in e.Objects)
    {
        ghDocumentObject.ObjectChanged -= OnObjectChangedHandler;
        ghDocumentObject.ObjectChanged += OnObjectChangedHandler;
    }
}

void OnObjectChangedHandler(IGH_DocumentObject sender, GH_ObjectChangedEventArgs e)
{

    // Here we only care about changes that are caused by the change in the source data
    if (e.Type == GH_ObjectEventType.Sources)
        RhinoApp.WriteLine("Sources changed: " + sender.NickName);
}

Permalink Reply by Long Nguyen on February 25, 2016 at 9:01am

Here is the file with the C# code above.

Attachments:

• SourceChangedHander.gh, 2 KB

Permalink Reply by Daniel González Abalde on February 25, 2016 at 11:38am

Thanks a million Long Nguyen, I was going down the wrong path!

This class works on all objects in the document, not just added. I access to the param source from the same method, casting the igh_documentObject to igh_param and getting the source.

Thank you very much again, have a nice day! :)

Private Sub RunScript(ByVal x As Boolean)

If x Then
If C Is Nothing Then C = New Conexiones(GrasshopperDocument)
Else
If C IsNot Nothing Then C.Destroy()
End If

End Sub

'<Custom additional code>

Public C As Conexiones

Public Class Conexiones

Public WithEvents ghDoc As gh_Document

Sub New(Doc As gh_Document)
If Doc Is Nothing Then Exit Sub
ghDoc = Doc
Create()
End Sub

Private Sub Create()

AddHandler ghDoc.ObjectsAdded, AddressOf AddedObjects

For Each obj As igh_DocumentObject In ghDoc.Objects
AddHandler obj.ObjectChanged, AddressOf WireEvent
Next
End Sub

Public Sub Destroy()

RemoveHandler ghDoc.ObjectsAdded, AddressOf AddedObjects

For Each obj As igh_DocumentObject In ghDoc.Objects
RemoveHandler obj.ObjectChanged, AddressOf WireEvent
Next
End Sub

Private Sub AddedObjects(sender As Object, e As kernel.GH_DocObjectEventArgs)
For Each obj As igh_documentObject In e.Objects
AddHandler obj.ObjectChanged, AddressOf WireEvent
Next
End Sub

Private Sub WireEvent(sender As igh_documentObject, e As GH_ObjectChangedEventArgs)

If e.Type = GH_ObjectEventType.Sources Then
If TypeOf sender Is igh_param Then
Dim target As igh_param = DirectCast(sender, igh_param)
If target.SourceCount < 1 Then Exit Sub
Dim source As igh_param = target.Sources.Last()
rhinoapp.WriteLine(String.Format("Source: {0}, target: {1} | {2}", Source.Name, target.Name, Date.Now()))
End If

End If
End Sub

End Class

Permalink Reply by Daniel González Abalde on February 25, 2016 at 3:59pm

This only works with objects of type igh_param. If someone uses the code, change the methods Create() and destroy() by:

Private Sub Create()

AddHandler ghDoc.ObjectsAdded, AddressOf AddedObjects

For Each obj As igh_DocumentObject In ghDoc.Objects
If TypeOf obj Is igh_param Then
AddHandler obj.ObjectChanged, AddressOf WireEvent
ElseIf TypeOf obj Is igh_Component Then
For Each p As igh_param In DirectCast(obj, igh_component).Params
AddHandler p.ObjectChanged, AddressOf WireEvent
Next
Else
'rhinoapp.writeline(obj.GetType.tostring())
End If
Next
End Sub

Public Sub Destroy()

RemoveHandler ghDoc.ObjectsAdded, AddressOf AddedObjects

For Each obj As igh_DocumentObject In ghDoc.Objects
If TypeOf obj Is igh_param Then
RemoveHandler obj.ObjectChanged, AddressOf WireEvent
ElseIf TypeOf obj Is igh_Component Then
For Each p As igh_param In DirectCast(obj, igh_component).Params
RemoveHandler p.ObjectChanged, AddressOf WireEvent
Next
End If
Next

End Sub

Permalink Reply by Paul Poinet on August 16, 2018 at 9:27am

Hi Long!

Thank very much for this, super helpful!
I noticed though that once that c# is computed, there is no effect when editing the lines of code inside "OnObjectChangedHandler". I have to restart rh/gh and change the script to see the how it behaves with the new instructions. Any tips to make my life easier...?

Best
Paul