I developed a fairly complex costing module for myself to cost my laser cutting. I currently ask for options one after another in a series of quistions with list boxes etc…
I might be able to use GetOption to decomplicate the workflow but the demo on GetOption has me puzzled:
When I run the code and change any value of any option the Getoption function terminates without allowing me to change any other option. How do I set it up so that I am able to set all the different options and then only continue to the next bit of code.
Sub TestOptions Const OPT_SGL = 0 Const OPT_BLN = 1 Const OPT_INT = 2 Const OPT_DBL = 3 Const OPT_LST = 4 Dim arr0, arr1, arr2, arr3, arr4 Dim lst, opt, rc, i lst = Array("One", "Two", "Three", "Four") arr0 = Array(OPT_SGL, "Single") arr1 = Array(OPT_BLN, "Boolean", "Off", "On", false) arr2 = Array(OPT_INT, "Integer", 4, "New value", 2, 10) arr3 = Array(OPT_DBL, "Double", 34.76, "New value", 1.0, 100.0) arr4 = Array(OPT_LST, "List", lst, 0) opt = Array(arr0, arr1, arr2, arr3, arr4) rc = Rhino.GetOption("Scripting options", opt) If IsArray(rc) Then For Each i in rc Call Rhino.Print(i) Next End If End Sub