我想自动打开上次访问文件夹的位置，但是不知道下列代码哪里出错了
(defun c:input ();导入;获取数据库
( if (= fname nil)
(setq fname (getfiled "选择文本文件" "" "txt" 2))
( progn
(setq phase (vl-filename-directoryfname))
(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)
)
哪位大侠帮下忙啊 已经解决。 请问是如何解决的,麻烦说哈呢,最近我也遇到这样的问题了,谢谢
页:
[1]