对话框编写

xiaoliu · 发表于 2004-2-24 19:17:00

斑竹，编程申请里出了问题，看不了贴子，只好这里再问一遍了
如何编制dcl以及驱动程序功能是点击实体后弹出对话框可以手动填写一些信息，并且能保存这些信息，以备后续程序调用。谢了！！！

meflying · 发表于 2004-2-24 19:38:00

都是在帮助文件中有的，稍微改动一下。。。
对话框文件：
hello : dialog {
   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)
)