对话框如何进行快捷输入？

chen4

　　　　　　　　　　　　对话框如何进行快捷输入？ 　　有如下的对话框
gxdata : dialog {
label = "管线数据输入对话框";
: boxed_column {
label = "输入提示(&T)";
:text { label = "1探测点　2阀门井　3消防栓　4消防井　5水表井"; }
} : edit12_box {
label = "附属物:";
key = "qdfsw";
edit_width = 15;
}
ok_cancel_help_errtile;
} 　　现在在附属物栏内要选择性地输入“探测点、阀门井、消防栓、水表井”等，也许还有“水源井...”,故用下拉性列表框是不太合适的(未穷尽所有选择项目)， 现在如何按输入提示，按1时快速地输入“探测点”，按2时输入“阀门井”......
请各位支持，帮我出出主意。谢谢！

meflying

输入后需要有一个动作，如：输入“1”后，回车，或把焦点移到别的控件 (defun c:test( / dcl_id)
(setq dcl_id (load_dialog "tmp.dcl"))
(new_dialog "gxdata" dcl_id)
(action_tile "qdfsw" "(Actqd)")
(start_dialog)
(unload_dialog dcl_id)
(princ)
) (defun Actqd( / lst ET)
(setq lst '("探测点" "阀门井" "消防栓" "消防井" "水表井"))
(setq ET (get_tile "qdfsw"))
(if (and (= (type (read ET)) 'INT) (<= (read ET) (length lst)))
(progn
(setq ET (read ET))
(set_tile "qdfsw" (nth (1- ET) lst))
)
)
)

chen4

也许还有“水源井...”,(未穷尽所有选择项目)，


现在要输入列表外的项目如“水源井”如何处理？

meflying

在编辑框里输入“水井源”不就可以了吗？


如果在提示以外输入编号就没有意义了，因为没有人知道哪个编号对应哪个文本。。。


如果你是给自己用，可以在(setq lst '("探测点" "阀门井" "消防栓" "消防井" "水表井"))这个表里面添加你要的。。。。。。。


给你写一个程序，你应该看懂它才对，就像上面这个问题，即使不懂LISP的，也可能会猜到是这里添加新的项

chen4

人太笨了， Command: !qdfsw
nil　　为何不是"消防栓"之类

meflying

!qdfsw是查看变量的值,而程序中的qdfsw是对话框中控件的关键字,怎么可以这样认为?