对话框编写

xiaoliu

斑竹，编程申请里出了问题，看不了贴子，只好这里再问一遍了


        如何编制dcl以及驱动程序 功能是点击实体后弹出对话框可以手动填写一些信息，并且能保存这些信息，以备后续程序调用。谢了！！！

meflying

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

xiaoliu

飞哥，我想保存的数据如果不止一个，有多个呢，如何保存

wdb

把数据保存在文本中不就行啦！

yqwzx

或者写成一个表，可以方便调用啊

晓雨

我想事先编好一个表，调用是只要输入一个参数就够了，比如：我编一个沉头孔尺寸表，后我只要输入多大的螺栓，就可用相关的尺寸通过程序自动画出图形了，能行吗？