How to prevent parameter (prefilled by iLogic rule) exceeds another keyparameter

[BRLMCHKD]

Hi Forum.

Could anyone give me a idea, how I do make sure, that my parameter

'LinerDiaMachined' (prefilled by rule) never exceeds another key-parameter 'LinerDia'

see attached screenshot.

Thanks,

BRL

kelly.young has embedded your image for clarity.

[johnsonshiue]

Hi! I guess you may need to add a conditional statement in the iLogic rule to prevent the input parameter from exceeding the key parameter. I am not sure if there is a way to set a dynamic range in the UI. But, having a maximum value should be doable.

Many thanks!

[Curtis_Waguespack]

Hi @BRLMCHKD,

Something like this would work. I've taken some guesses as to the intent, so adjust as needed.

Also just as a tip, programming questions of this type are likely better placed on the Inventor Customization forum :
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/bd-p/120

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Answer = MessageBox.Show("Liner requires machining!", _
"Attention",MessageBoxButtons.YesNo,MessageBoxIcon.Exclamation)

If Answer = vbYes Then 
	LinerDia = InputBox("Diameter OD", "Liner Machined", )
	
	If LinerDiaMachined > LinerDia Then 
		LinerDiaMachined = LinerDia - 0.125
		MessageBox.Show("Machined diameter cannot exceed OD." _
		& vbLf & "Machined diameter adjusted to: " & LinerDiaMachined , "ilogic")		
	End If
Else
	MessageBox.Show("Change ratio ...", "ilogic")
End If

[mcgyvr]

I went with this "While" statement..

 Needs a LinerDiaSet True/false parameter

It will keep prompting for the value until it meets the "less than" condition...

Answer1 = MessageBox.Show("Set diameter for liner machining operation? ", "Set diameter" ,MessageBoxButtons.YesNo)
If Answer1 = vbYes Then
	LinerDiaSet = False
While LinerDia < LinerDiaMachined Or LinerDiaSet = False
	LinerDiaMachined = InputBox("Enter LinerDia . Must be less than " & LinerDia, "Title", "1")
	iLogicVb.UpdateWhenDone = True
 	LinerDiaSet = True
End While
Else
	Return
End If

[BRLMCHKD]

Hi Johnson

Thank you very much 🙂

I will try some of the received suggestions right away.

Have a nice day.

KR Bent

[dgreatice]

Hi,

I think this while will no end loop.

Try :

CheckAndGet = InputBox("Input", "Title", LinerDiaMachined)
CheckResult = False

Do Until CheckResult = True
	If CheckAndGet >= LinerDia Then
		CheckAndGet = InputBox("Input", "Title", LinerDiaMachined)
		CheckResult = False
	Else
		CheckResult = True
		LinerDiaMachined = CheckAndGet
	End If
Loop

iLogicVb.UpdateWhenDone = True