如题所述
创建DCL文件,如:demo.dcl,dialog为demo0,包含对Editbox的控件定义。假设key为edit01
(setq index (load_dialog "demo.dcl"))
(new_dialog demo0 index)
... ...
(action_tile edit01 "(setq myVar $value)")
(start_dialog)
(unload_dialog index)
变量myVar即是对话框Edit_box控件内输入的值。