Hello,
I am new to scripting and I want to make a dialog box with text fields where i can insert a value and then have autocad use that value to make a drawing. I got the box to show everything I want and now I have to get it to actually do something. Can someone help me?
This is what i got so far:
hi,
In order to respond to any dcl tile (in this case specific to edit_box) you need to call (action_tile) functon inside a while loop scope.
where the test condition of while keeps the dialog ON untill you press the OK button or the Cancel button which by default fires a default callback function that calls (done_dialog x) with 1/0 integer value to return to (start_dialog) function.
; next is default autolisp behavior
(done_dialog 1) returns 1 (=ok)
(done_dialog 0) return 0 (=cancel)
initilazatizing tiles also must be done inside while scope
i only format the code, debuging it is on you 
cheers,
Moshe
(defun init_tiles ()
(setq x (dimx_tile "im") y (dimy_tile "im"))
(start_image "im")
(fill_image 0 0 x y 5)
(end_image)
(setq Po (get_tile "rb1"))
(setq La (get_tile "rb2"))
; do more tiles initilazation here
)
; callback
(defun ctrl_edit_box (value key)
; be aware that value is a string, use (atoi) or (atof) to convert it to integer\double numbers.
; also check here the validation and range of values
(if (/= value "")
(cond
((eq key "eb1")
(setq B value)
)
((eq key "eb2")
(setq L value)
)
((eq key "eb3")
(setq B value))
)
((eq key "eb4")
(setq K value))
)
); cond
); if
); ctrl_edit_box
; callback
(defun ctrl_radio_button (value key)
(cond
((eq key "rb1")
(setq Po value)
)
((eq key "rb2")
(setq La value)
)
); cond
); ctrl_radio_button
(defun C:LayoutCreator (/ dcl_id what_next)
(setq dcl_id (load_dialog "Layout Creator"))
(setq what_next 2)
(while (> what_next 1)
(if (not (new_dialog "LayoutCreator" dcl_id "" '(-1 -1))); open dialog
(exit)
)
(init_tiles); initialize tiles
; define callback functions
(action_tile "eb1" "(ctrl_edit_box $value $key)")
(action_tile "eb2" "(ctrl_edit_box $value $key)")
(action_tile "eb3" "(ctrl_edit_box $value $key)")
(action_tile "eb4" "(ctrl_edit_box $value $key)")
(action_tile "rb1" "(ctrl_radion_button $value $key)")
(action_tile "rb2" "(ctrl_radion_button $value $key)")
(setq what_next (start_dialog)); start dialog
(cond
((= what_next 0)
; user cancel the dialog, do cleanup here
)
((= what_next 1)
; user OK the dialog, do cleanup here
; do your work here
(setq OP (getpoint "\nInsertion point : "))
(command "line" OP pause "")
)
); cond
); while
(unload_dialog dcl_id)
(princ)
); C:LayoutCreator
