boxed_radio_column.
Syntax:
: boxed_radio_column {
alignment children_alignment children_fixed_height
children_fixed_width fixed_height fixed_width
height label width
}
Note: This Tile Cluster is for display purpose only.
No AutoLisp coding has been included for the Active Children Tiles.
DCL Coding:
lisp48x : dialog { //dialog name
label = "boxed_radio_column"; //give it a label
: boxed_radio_column { //define boxed radio column
label = "boxed radio column"; //give it a label
: radio_button { //define a radio button
key = "rad1"; //give it a name
label = "Blonde"; //give it a label
value = "1"; //switch it on
} //end radio button
: radio_button { //define a radio button
key = "rad2"; //give it a name
label = "Brunette"; //give it a label
} //end radio button
: radio_button { //define a radio button
key = "rad3"; //give it a name
label = "Red Head"; //give it a label
} //end radio button
} //end boxed radio column
ok_cancel ; //predefined OK/Cancel button
} //end dialog
AutoLisp Coding:
(defun C:lisp48x ()
;define function
(setq dcl_id (load_dialog "lisp48x.dcl"))
;load dialog
(if (not (new_dialog "lisp48x" dcl_id)
;test for dialog
);not
(exit)
;exit if no dialog
);if
(action_tile
"accept"
;if O.K. pressed
"(done_dialog) (setq userclick T)"
;close dialog, set flag
);action tile
(action_tile
"cancel"
;if cancel button pressed
"(done_dialog) (setq userclick nil)"
;close dialog, lower flag
);action_tile
(start_dialog)
;start dialog
(unload_dialog dcl_id)
;unload
(if userclick
;if OK selected
(alert "You selected OK")
;inform the user
(alert "You selected Cancel")
;inform the user
);if
(princ)
);defun
(princ)
|