label = "Sample Dialog Box";
: edit {
label = "Enter:";key = "edit1";
}
: button {
key = "accept";
label = "OK";
is_default = true;
}
}
程序文件：輸入內容被保存在系統變量value中
(defun C:HELLO( / dcl_id )
(setq dcl_id (load_dialog "hello.dcl")) ;加載 DCL 文件
(if (not (new_dialog "hello" dcl_id)) ;初始化對話框
(exit) ;如果不工作就退出
)
(action_tile "accept" "(setq value (get_tile \"edit1\")) (done_dialog 1)")
(start_dialog) ;顯示對話框
(unload_dialog dcl_id) ;卸載 DCL 文件
(princ)