Call dll from iLogic

[Anonymous]

Hi All

I am new to the .net but have used iLogic for some time. I have tried to reference a sub inside a Class (dll file).

I have some parameters that I want to set from the dll.

Parameter "Lenght1" and "Width1" exist in the model file

I can call the sub and receive the msgBox but I cannot figure out how to set parameters from the dll through iLogic.

I get the following error message:

"Object reference not set to an instance of an object."

Can anyone help me with setting the parameters? Or point me in the right direction

See simplified example below:

'iLogic call

AddReference "System.Runtime"

AddReference "C:\Vault\Designs\Testing\iLogic_VB\SubCall.dll"

Parameter.UpdateAfterChange = True 
MultiValue.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True 

Dim tool as New SubCall.ClassSubCall

tool.Testing(UserAnswer) 'Yes or No
  tool.Parameter = Parameter
  tool.MultiValue = MultiValue
  tool.Length1 = Parameter("Length1")
  tool.Width1 = Parameter("Width1")

'dll file

Imports Autodesk.iLogic.Interfaces

Public Class ClassSubCall

Public Parameter As IParamDynamic

Public MultiValue As IMultiValueParam

Public ILogicVB As ILowLevelSupport

Public Length1 As Double

Public Width1 As Double

Public Sub Testing(ByVal UserAnswer As String)

If UserAnswer = "Yes" Then

MsgBox("OK, message received")

Parameter("Length1") = 100

Parameter("Width1") = 50

Else

MsgBox("No message received")

Parameter("Length1") = 150

Parameter("Width1") = Parameter("Length1") / 2

End If

End Sub

End Class

[bradeneuropeArthur]

you need to create a New statement:

Public Sub new(ByVal UserAnswer As String)
If UserAnswer = "Yes" Then
MsgBox("OK, message received")
Parameter("Length1") = 100
Parameter("Width1") = 50
Else
MsgBox("No message received")
Parameter("Length1") = 150
Parameter("Width1") = Parameter("Length1") / 2
End If
End Sub
End Class

[Anonymous]

Hi

I am not quite following you. Is this necessary only on Subs? Works fine on functions. Perhaps it is possible to return an array

Call from iLogic (model opdates fine)

AddReference "System.Runtime"

AddReference "C:\Vault\Designs\KH test\Testing\iLogic_VB\SubCall.dll"

Parameter.UpdateAfterChange = True 
MultiValue.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True

Dim tool as New SubCall.ClassSubCall

Length1=tool.FunctionTest(UserAnswer)

dll content

Imports Autodesk.iLogic.Interfaces

Public Class ClassSubCall

Public Parameter As IParamDynamic

Public MultiValue As IMultiValueParam

Public ILogicVB As ILowLevelSupport

Public Function FunctionTest(ByVal UserAnswer As String)

If UserAnswer = "Yes" Then

MsgBox("OK, message received")

FunctionTest = 100

Else

MsgBox("No message received")

FunctionTest = 150

End If

End Function

End Class

[bradeneuropeArthur]

Try to test with only a message box. You will see that nothing happens on the new statement

[Anonymous]

Thanks for your tips... But I think that I am missing the basics

Can you refer to any articles etc. for best practice on this area?

[bradeneuropeArthur]

Tell me what your code needs to do.
I will send you an example asap

[Anonymous]

Any help would be appreciated.

This is on a Proof Of Concept level.

Based on a specific answer from the user in Form1 I want to retreive the Dimensions Width1 and Length1 from a dll and update the model. Hopefully this is clear.

The Form1 is an iLogic form not from the .NET

[bradeneuropeArthur]

Hi,

Sorry.

But I think your code is correct.

it works with this:

 Dim Tool As ClassSubCall.ClassSubCall = New ClassSubCall.ClassSubCall()

        'a.FunctionTest("aa")
        MsgBox(Tool.FunctionTest("Yes"))

        'Length1 = Tool.FunctionTest("Yes")
    End Sub

[Anonymous]

Hi

Yes it works with the function test. But here I can only retreive one value.

Public Function FunctionTest(ByVal UserAnswer As String)

If UserAnswer = "Yes" Then

MsgBox("OK, message received")

FunctionTest = 100

Else

MsgBox("No message received")

FunctionTest = 150

End If

End Function

If I try to do the same with a Sub and set multiple values and try to set the Length1 and Width1

Public Sub Testing(ByVal UserAnswer As String)

If UserAnswer = "Yes" Then

MsgBox("OK, message received")

Parameter("Length1") = 100

Parameter("Width1") = 50

Else

MsgBox("No message received")

Parameter("Length1") = 150

Parameter("Width1") = 75

End If

End Sub

It does not produce a value...

Dim tool as New SubCall.ClassSubCall
MsgBox(tool.Testing("Yes"))
tool.Testing(UserAnswer)

[bradeneuropeArthur]

Hoi should define an array. And return that

[smilinger · Accepted solution]

Apparently you made a mistake by using the Parameter member in your Testing method before it's assigned a value. You should write this line:

tool.Parameter = Parameter

before this line:

tool.Testing(UserAnswer)

Or you should do that in a Constructor, aka Sub New() as suggested by @bradeneuropeArthur in the 2nd post.

[Anonymous]

Could it really be that simple? Yes it could...

AddReference "System.Runtime"

AddReference "C:\Vault\Designs\KH test\Testing\iLogic_VB\SubCall.dll"

Parameter.UpdateAfterChange = True 
MultiValue.UpdateAfterChange = True 
iLogicVb.UpdateWhenDone = True


Dim tool as New SubCall.ClassSubCall
tool.Parameter = Parameter
tool.Length1 = Parameter("Length1")
tool.Width1 = Parameter("Width1")
tool.Testing(UserAnswer)

Thanks for the support, both of you. Very much appreciated