Community
Without getting into too much detail, you can greatly simplify
the program by using three radio buttons and only one list box.
"4.5 - 2.25 roller"
"4.5 - 3.00 roller"
"Cruz - 3.00 roller"
Make an action_tile to each of these and populate the list box accordingly.
Replace the foreach with (mapcar 'add_list [YourList]) as shown here:
(start_list "Lis201")(mapcar 'add_list NVList)(end_list)
Set an initialization section in your program - just after the new_dialog call
and you will not need to have an outside source do this for you.
(if (not f_typ_val)
(setq ...
Maybe even suggest turning this into a list so as not to intefere with other programs...
(if (not USER_TGWDBS)
(setq USER_TGWDBS (list "4.5" "22" "3"))
);if
...and to access the list:
(nth 0 USER_TGWDBS), (nth 1 USER_TGWDBS), etc.
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.
I was in a bit of a rush yesterday and only hit on the highlights...
I have found that most newbie developers tend to try and execute code while the dialog box is still open.
The main purpose of the dialog interface is to gather information so that a program will execute based
on the supplied information.
Consider the following:
:radio_column {key="Rad100"
:radio_button {key="Rad101"}
:radio_button {key="Rad102"}
:radio_button {key="Rad103"}
}
By supplying a "key" to the radio column, you can now set and retrieve which button is active.
(set_tile "Rad100" "Rad101")
Out of order thoughts:
(cond
( (= (get_tile "Rad100") "Rad101") [do stuff] )
( (= (get_tile "Rad100") "Rad102") [do stuff] )
);cond
As far as action_tile, I only use $value and $reason to toggle mode_tile. Never needed it for any other reason.
(start_list "Lis101")(mapcar 'addlist '("1" "2" "3"))(end_list)
(action_tile "Rad101" "(REPOPULATE 1)")
(action_tile "Rad102" "(REPOPULATE 2)")
(action_tile "Rad103" "(REPOPULATE \"Unk.\")") ;<-- notice the escapes on the quotes, therefore write a subroutine.
Where
(defun REPOPULATE ( a / )
(cond
( (= a 1) (start_list "Lis101")(mapcar 'addlist '("1" "2" "3"))(end_list) )
( (= a 2) (start_list "Lis101")(mapcar 'addlist '("4" "5" "6"))(end_list) )
(T (princ) )
);cond
);defun
And finally,
(action_tile "accept" "(GET_INFORMATION)(done_dialog 1)")
Where GET_INFORMATION will be a subroutine that fetches "Rad100" value and "Lis101" position.
(setq USER_180TGWDBS (list
(get_tile "Rad100")
(get_tile "Lis101")
))
This is all you will need to begin executing code: (nth 0 USER_180TGWDBS) and (nth 1 USER_180TGWDBS).
See attached template I use to begin DCL type projects.
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.
What code example I have supplied so far will get you to 90% of the user input program part.
The bits and pieces are not very organized, but you want to learn, huh?
In addition, some notes (and recaps):
With 3 radio buttons and one list box, only 2 values are stored - the radio column key and the list box position.
Use the action tile for each radio button to repopulate the list box and reset the list box key to "0". Nothing else.
Saving the dialog's current state for each of these radio button actions is redundant (a common misconception).
There is no action tile required for the list box, for your case, unless you plan to done dialog (which is not ergonomic).
Had there been a second list box, and a line was selected in the first list box, the action would cause the second list box
to repopulate (only). You would use the $value carrier to do this action. Going deeper, if another radio button is selected,
repopulate the first list, and mode_tile = 1 the second list until an action is detected in the first list.
Action tile "accept" will be used to record the current state of the dialog box.
It is here that you "GET" the current values of the radio column key and the list box position key, then done dialog 1.
Yes, it is messy that I see you have leftover second list box items.
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
