请问如何启动对话框中的按钮？
在程序设计中，设计了一个“浏览”按钮项以选则一个新文件，但在实际应用中点取该命令时总没有反应。回复
不知你用什么写的LISP, VBA, 还是ARX, 最好把你的程序贴出来. 谢谢你！其实，我的程序已经编号，但为把输入输出做的好用一些，增加了文件存取对话框，但怎么试都不行。请帮忙看看程序吧！谢谢(setq dcl_id (load_dialog "qx6.dcl"))<BR> (if (not (new_dialog "qx6" dcl_id)) (exit))
(set_tile "fi" "")<BR> (set_tile "zh" "0")<BR> (set_tile "zhju" "200")<BR> (set_tile "fi2" "SEGMENT")<BR> (mode_tile "fi" 2)
(action_tile "accept" "(ok)")<BR> (start_dialog )<BR> (done_dialog)<BR> (action_tile "filein" (getfiled "select a lisp file" "/cass40/bin/" "lsp" 5))<BR> (action_tile "fileout" (princ "输出"))
(unload_dialog dcl_id)
======以下是dcl ==================
qx6:dialog{<BR> label = "圆曲线元素计算";<BR>:row {<BR> :edit_box{<BR> label = "转点文件名";<BR> mneonic = "N";<BR> key = "fi";<BR> edit_width =10;<BR> }<BR> :button{<BR> label = "浏览";<BR> key = "filein";<BR> width = 1;<BR> height = 1;<BR> mnemonic= "B";<BR> }<BR>}<BR> :edit_box{<BR> label = "起始点桩号";<BR> mneonic = "N";<BR> key = "zh";<BR> edit_width =20;<BR> }<BR> :edit_box{<BR> label = "桩 距";<BR> mneonic = "N";<BR> key = "zhju";<BR> edit_width =20;<BR> }<BR>:row {<BR> :edit_box{<BR> label = "成果文件名";<BR> key = "fi2";<BR> edit_width =10;<BR> }<BR> :button{<BR> label = "浏览";<BR> key = "fileout";<BR> width = 1;<BR> height = 1;<BR> mnemonic= "B";<BR> }<BR>}
spacer_1;<BR> ok_cancel_err;<BR>}<BR>
程序调入后，当点"filein" or "fileout" 钮时，没反应，但当点取“取消”或“确定”钮才出现想要的文件选取对话框.<BR>
回复
注意引号:多谢指教，问题解决了。
页:
[1]