请问版主如何在对话框取得返回值并将它显示在前面相应的编辑框中？

gslee · 发表于 2004-6-15 15:31:00

感谢版主上次的指教，现在点击"浏览"按钮已经没问题了，但它的返回值却得不到，请问如何取得返回值并将它显示在前面相应的编辑框中？谢谢！defun c:qx ()
   (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)")

   (action_tile "filein" "(getf)") ; 注意执行的操作在引号中
   (action_tile "fileout" "(outf)")

   (start_dialog )
   (done_dialog)
   (unload_dialog dcl_id)
)
(defun getf ()
   (getfiled "请选择转点文件" "" "" 10)
)
(defun outf ()
   (getfiled "请输入计算成果文件名" "" "lsp" 5)
)
(defun ok ( )
   (setq fi (get_tile "fi"))    ;手工输入的数据文件名
   (setq zh (atof (get_tile "zh")))
   (setq zhju (atof (get_tile "zhju")))
   (setq fi2 (get_tile "fi2")) ；;手工输入的数据文件名
   (setq filein (get_tile "filein")) ；点击"浏览"菜单得到的文件名
   (setq fileout (get_tile "filein")) ；点击"浏览"菜单得到的文件名
   (done_dialog)
)======以下是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;
}
；=======真是每一步都很难========
；谢谢！