我想自动打开上次访问文件夹的位置，但是不知道下列代码哪里出错了

daiguafan · 发表于 2011-7-15 10:22

(defun c:input ();导入
;获取数据库
( if (= fname nil)
(setq fname (getfiled "选择文本文件" "" "txt" 2))
( progn
  (setq phase (vl-filename-directory  fname))
  (setq fname (getfiled "选择文本文件"  phase "txt" 2))))
  (setq FP (open fname "r"))
  (setq DATA nil)
  (WHILE (SETQ LINE (READ-LINE FP))
;将数据库中的数据存入DATA中
(if
(and (> (strlen LINE) 0) (not (wcmatch LINE "!*")))
   (progn

(SETQ DATA (CONS LINE DATA))
   )
)
  )
  (setq DATA (reverse DATA))
  (close FP)

  (setq MyList DATA )
(start_list "list1" )
(mapcar 'add_list MyList)
(end_list)
)

daiguafan · 发表于 2011-7-15 10:59

哪位大侠帮下忙啊

daiguafan · 发表于 2011-7-15 11:16

已经解决。

vvcd · 发表于 2013-11-29 11:07

请问是如何解决的,麻烦说哈呢,最近我也遇到这样的问题了,谢谢

账号		自动登录	找回密码
密码			注册

[讨论] 我想自动打开上次访问文件夹的位置，但是不知道下列代码哪里出错了

浏览过的版块