boolean with text

[martinhoos]

Hello,

i dont understand that following code is not running...

boolean1 = True
boolean2 = False

If Typ = "left" Then
Typ_1 = boolean1
ElseIf Typ Then
Typ_1 = boolean2
End If

If Typ = "right" Then
Typ_2 = boolean1
ElseIf Typ Then
Typ_2 = boolean2
End If

If Typ = "middle" Then
Typ_3 = boolean1
ElseIf Typ Then
Typ_3 = boolean2
End If

If i Change the code from text to number (1, 2, 3) it will run. What is wrong?

Thanks in advance.

Regards

Martin

[bradeneuropeArthur]

Change to this:

Dim boolean1 As Boolean
Dim boolean2 As Boolean
boolean1 = True
boolean2 = False

If Parameter.Param("Typ").Value = "left" Then
	msgbox ("d")
End If

If Parameter.Param("Typ").Value = "left" Then
	iProperties.Value("Custom", "Typ_1") =  boolean1
Else
iProperties.Value("Custom", "Typ_1") =  Boolean2
End If

If Parameter.Param("Typ").Value = "right" Then
	iProperties.Value("Custom", "Typ_2") =  boolean1
Else
iProperties.Value("Custom", "Typ_2") = Boolean2
End If

If Parameter.Param("Typ").Value = "middle" Then
	iProperties.Value("Custom", "Typ_3") =  boolean1
Else
iProperties.Value("Custom", "Typ_3") =  Boolean2
End If

If you have questions please let me know.

[dgreatice]

hi,

are this workflow?

1. Create rule ?

2. then Create UserParameter?

I got same error.

but if you change workflow

1. create UserParameter

2. then create rule, and capture all UserParameter.

its not showing error. I don't know its bug or what else.

my screencast are pending, you can see at:

http://autode.sk/2DlXgcT

[bradeneuropeArthur]

if all parameters and custom properties are defined then this give no error.

I assume that this is the case.

Seems to be buggy what you showed.

[martinhoos]

Hello dgreatice,

i did it your way - but it didnt run. Please check the sample part.

Thank you very much.

Regards Martin

[dgreatice]

I'm sorry @martinhoos

I cant open higher version. I using inventor 2014.

[bradeneuropeArthur · Accepted solution]

boolean1 = True
boolean2 = False
MsgBox (Typ)
If Parameter.Param("Typ").Value = "left" Then
Parameter.Param("Typ_1").Value = boolean1
Else
Parameter.Param("Typ_1").Value = Boolean2
End If


If Parameter.Param("Typ").Value = "right" Then
Parameter.Param("Typ_2").Value = boolean1
Else
Parameter.Param("Typ_2").Value = Boolean2
End If

If Parameter.Param("Typ").Value = "middle" Then
Parameter.Param("Typ_3").Value = boolean1
Else
Parameter.Param("Typ_3").Value = Boolean2
End If

I have tested and this works. 

[martinhoos]

Thank you very much - your code is running.

Regards Martin

[aronmatheus]

How is take the part number the side forms how the consequence the dimensions I chose in form?

[martinhoos]

Hello Aron,

sorry, but i didnt understand your question.

Regards from Germany

Martin

[aronmatheus]

Hi, Martin! I would like to change a dimension in the form there the consequence change a part number to the same form, to show when I change the dimensions see what part I'm chosen.