请教高手：如何能得到想要读取的文件名？谢谢！

gslee

请教高手：如何能得到想要读取的文件名，变量fi中存入？谢谢！

(defun c:z1(  )

    (vl-load-com)
    (setvar "osmode" 0)
     (setq dcl_id (load_dialog "ys.dcl"))
     (if (not (new_dialog "ys" dcl_id))  (exit))

     (action_tile "filein" "(getf)")

     (setq fi (get_tile "fi"))
    ; (done_dialog)

     (start_dialog )
     (unload_dialog dcl_id)

     (setq fi (open fi "r")) (setq rl (read-line fi))

）

    ys.dcl

ys:dialog{
   label = "孔 压 试 验 图 绘 制";
:row {
  :edit_box{
       label = "数据文件名:";
       mneonic = "F";
       key = "fi";
       edit_width =30;
   }
  :button{
       label = "浏览";
       key = "filein";
       width = 1;
       height = 1;
       mnemonic= "B";
   }
}

   spacer_1;
   ok_cancel_help;
}

ZZXXQQ

2.   (defun c:z1 ()
3. (setvar "osmode" 0)
4. (if (setq dcl_id (load_dialog "ys.dcl")) (progn
5.   (if (new_dialog "ys" dcl_id) (progn
6.    (action_tile "fi" "(setq fi value$)")
7.    (action_tile "filein" "(getf)")
8.    (action_tile "accept" "(readdata) (done_dialog 1)")
9.    (action_tile "cancel" "(done_dialog 0)")
10.    (setq re (start_dialog))
11.   )
12.    (princ "\nCon't display dialog!")
13.   )
14.   (unload_dialog dcl_id)
15. )
16.   (princ "\nUnable to load dialog box!")
17. )
18. (if (= re 1) (progn
19.   (if (setq f (open fi "r")) (progn
20.    (setq rl (read-line fi))
21.    (close f)
22.   ))
23. ))
24. )
25. (defun readdata () (setq fi (get_tile "fi")))
26. (defun getf ()
27. (set_tile "fi" (if (setq fi (getfiled "\nSelect filename" "" "*" 4)) fi nil))
28. )

  (defun c:z1 () (setvar "osmode" 0) (if (setq dcl_id (load_dialog "ys.dcl")) (progn   (if (new_dialog "ys" dcl_id) (progn    (action_tile "fi" "(setq fi value$)")    (action_tile "filein" "(getf)")    (action_tile "accept" "(readdata) (done_dialog 1)")    (action_tile "cancel" "(done_dialog 0)")    (setq re (start_dialog))   )    (princ "\nCon't display dialog!")   )   (unload_dialog dcl_id) )   (princ "\nUnable to load dialog box!") ) (if (= re 1) (progn   (if (setq f (open fi "r")) (progn    (setq rl (read-line fi))    (close f)   )) )) ) (defun readdata () (setq fi (get_tile "fi"))) (defun getf () (set_tile "fi" (if (setq fi (getfiled "\nSelect filename" "" "*" 4)) fi nil)) )

gslee

多谢指点！

关键是最下面的一句。