请问如何启动对话框中的按钮？

gslee

在程序设计中，设计了一个“浏览”按钮项以选则一个新文件，但在实际应用中点取该命令时总没有反应。

王咣生

不知你用什么写的LISP, VBA, 还是ARX, 最好把你的程序贴出来.

gslee

谢谢你！其实，我的程序已经编号，但为把输入输出做的好用一些，增加了文件存取对话框，但怎么试都不行。请帮忙看看程序吧！谢谢 (setq dcl_id (load_dialog "qx6.dcl"))
(if (not (new_dialog "qx6" dcl_id)) (exit)) (set_tile "fi" "")
(set_tile "zh" "0")
(set_tile "zhju" "200")
(set_tile "fi2" "SEGMENT")
(mode_tile "fi" 2) (action_tile "accept" "(ok)")
(start_dialog )
(done_dialog)
(action_tile "filein" (getfiled "select a lisp file" "/cass40/bin/" "lsp" 5))
(action_tile "fileout" (princ "输出")) (unload_dialog dcl_id) ======以下是dcl ================== qx6:dialog{
label = "圆曲线元素计算";
:row {
:edit_box{
label = "转点文件名";
mneonic = "N";
key = "fi";
edit_width =10;
}
:button{
label = "浏览";
key = "filein";
width = 1;
height = 1;
mnemonic= "B";
}
}
:edit_box{
label = "起始点桩号";
mneonic = "N";
key = "zh";
edit_width =20;
}
:edit_box{
label = "桩 距";
mneonic = "N";
key = "zhju";
edit_width =20;
}
:row {
:edit_box{
label = "成果文件名";
key = "fi2";
edit_width =10;
}
:button{
label = "浏览";
key = "fileout";
width = 1;
height = 1;
mnemonic= "B";
}
} spacer_1;
ok_cancel_err;
}
程序调入后，当点"filein" or "fileout" 钮时，没反应，但当点取“取消”或“确定”钮才出现想要的文件选取对话框.

王咣生

注意引号:

gslee

多谢指教，问题解决了。