[求助]：getfile能否固定路径？

SGP007

我用getfile获取输出文件的路径和文件名，但是怎样才能固定路径呢？每次都是默认从C盘开始，能否选过一次，下次就固定到刚才选择的目录。
(if (not (setq filename
    (getfiled "选择文件存储目录" "111.xls" "xls" 5)
           )
      )
    (setq filename "d:\\111.xls")
  )

Underway

(getfiled title default ext flags)
(getfiled "Select File" "D:/AutoCAD/" "lsp" 8)

SGP007

非常感谢长老相助，才开始学习这门外语，很多东西搞不明白。还有一个问题，下面的程序，我用了(close fp)，还想打开原来的文件，继续输出数据，再怎么打开呢？
(defun c:k ()
(vl-load-com)
(setq filename "d:\\123.xls")
(setq fp (open filename "w"))
(while (= 1 1)
(if (setq d (getpoint "\n 请拾取点:"))
(progn
(setq dx (car d))
(princ dx fp)
(princ (chr 10) fp)

)
(progn
(close fp)
(startapp
"C:/Program Files/Microsoft Office/OFFICE11/EXCEL.EXE"
filename
)
)
)
)
)