Topic: Radio_button controls and list boxes.

[jlogan02]

When user pics Draw Line the "Select Layer" List_box would only list LINE layers.
When user selects Add Text the "Select Layer" List_box would change to show TEXT Layers or Text Style.
Then there would be a choice for selecting color of those objects before placing.

I've all of it working except the color part (not there yet) and the changing the list box contents
This snippet of code handles a text box opening or closing based on selection of a radio button On/Off

Code - Auto/Visual Lisp: [Select]

1. (action_tile "radio_button_ON" "(mode_tile \"text_box_1\" 0)")
2. (action_tile "radio_button_OFF" "(mode_tile \"text_box_1\" 1)")

Can this same approach be used for my needs?

[BIGAL]

Try the inbuilt choose color (acad_colordlg 256) google the command for options like the number.

[snownut2]

You really only need one action_tile, put the radio buttons in a radio_column and assign a key to the column.  Then rename your two radio button keys to something like "line" & "text".

Then when you have the action tile be something like (setq action $value)

Then the value of the action variable becomes line or text depending on which button is selected. 

Then with an if statement you can repopulate the list with correct info. 

Using this method you can control many radio buttons with one action tile.

[snownut2]

This is untested but should work...

Code - Auto/Visual Lisp: [Select]

1. ;  DCL Bit
2. : boxed_row {
3. :   radio_column { key = "action" ; }
4. :     radio_button { label = "Draw Line" ; key = "linel" ; }
5. :     radio_button { label = "Add Text"  ;  key = "textl" ; }
6. :   }
7. :   column {
8. :     text { label = "Select Layer" ;   }
9. :     list_box { key = "layname"  ;    }
10. :   }
11. : }
12.  
13.  
14. ;  LISP Bit (Due to BricsCads habit of selecting 1st radio option, need to pre-define values in case user doesn't select radio button)
15.  
16. (setq
17.   linel '("line 1" "line 2" "line 3")
18.   textl '("text 1" "text 2" "text 3")
19.   layname (car linel)
20. )
21. ; ----- load dcl here -----
22.  
23. (start_list "layname")
24. (mapcar 'add_list linel)
25. (end_list)
26. (set_tile "action" "linel")
27.  
28. (action_tile "action"  "(start_list \"layname\")(mapcar 'add_list (read $value))(end_list)")
29. (action_tile "layname" "(set (read $key) (nth (atoi $value) (read(get_tile \"action\"))")
30.