(defun fun_dlg-execute
(/ dcl_file dcl_id dcl_lst dcl_res dcl_proc)

(defun dcl_proc ()
(cond
((null $key)
(set_tile "opt" "opt1")
(set_tile "msg" "Выбери опцию")
)

((= $key "cancel")
(done_dialog 0)
)

((= $key "accept")
(setq dcl_lst (list (get_tile "opt")))
(done_dialog 1)
)

) ;_ end of cond
) ;_ end of defun

(setq dcl_file (fun_create-dcl-file)
dcl_id (load_dialog dcl_file)
) ;_ end of setq

(new_dialog "dlg" dcl_id "(dcl_proc)")
(dcl_proc)
(setq dcl_res (start_dialog))
(unload_dialog dcl_id)

(if (= dcl_res 1)
(alert "Была нажата OK")
(alert "Была нажата Отмена (Cancel)")
) ;_ end of if

dcl_lst

) ;_ end of defun

(defun fun_create-dcl-file (/ file handle)
;; Возвращает имя файла dcl
(setq file (strcat (vl-string-right-trim "\\" (getenv "tmp"))
"\\dlg.dcl"
)
handle (open file "w")
) ;_ end of setq
(foreach item '("dlg:dialog{label=\"Диалог\";"
" :text{key=\"msg\";}"
" :boxed_radio_column{key =\"opt\";"
" :radio_button{key=\"opt1\";label=\"Radio 1\";}"
" :radio_button{key=\"opt2\";label=\"Radio 2\";}"
" :radio_button{key=\"opt3\";label=\"Radio 3\";}"
" :radio_button{key=\"opt4\";label=\"Radio 4\";}}"
" ok_cancel;"
"}"
)
(write-line item handle)
) ;_ end of foreach
(close handle)
file
) ;_ end of defun

call-back функция вызывается всего один раз перед стартом диалога!

Кто сказал? Она вызывается ровно так же, как и любая другая функция.

call-back- функция не нуждается ни в каких параметрах.

Опять же, кто сказал? И если это так, то почему мой подход работает уже не первый год?

в call-back функции должны быть описаны только управляющие элементы: всегда кнопки, в отдельных случаях списки, радиокнопки и чекбоксы. А не все подряд…

И снова - кто это сказал? С чего бы вдруг мне не описать в функции, которую я разрабатываю то, что лично мне нужно? Странный подход - "нельзя потому что нельзя". Можно!

Все это описано в справке, поэтому я не вижу причин для подобного велосипедостроения.

Ок, бога ради. Тот принцип, который я описал и который использую, на данный момент оправдывает все вложения.

Все это описано в справке, поэтому я не вижу причин для подобного велосипедостроения.