[求助]findfile找不到搜索路径下的数据文件？

azjmjsj

lisp编程中，数据文件.dat在CAD搜索路径下,findfile却找不到，无法加载dat文件中的数据到对话框中,
但别人的lisp例子程序在只输入文件名的情况下可用findfile找到搜索路径下的使用数据文件.dat,原因何在?
(我想在相对路径下使用数据文件.dat）
代码结构如下：
(defun do_azj(/ .....)
(setq oc (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ola (getvar "clayer"))
(if (< (setq azj_id (load_dialog "azj")) 0)
(exit)
)
(setq fname "azj.dat")
(if (not (findfile fname))
(setq fname (getfiled "输入数据库文件名" "azj.dat" "dat" 3))
)
(if (findfile fname)
(progn
(setq fn (open fname "r"))
....
....
)
)
(setq what_next 5)
(while (>= what_next 2)
(if (not (new_dialog "azj" azj_id))
(exit)
)
....
....
(action_tile "accept" "(do_accept) (done_dialog 1)")
(action_tile "cancel" "(setq jslist nil) (done_dialog 0)")
(setq what_next (start_dialog))
....
....
(unload_dialog jsyq_id)
....
....
(princ)
)

azjmjsj

(unload_dialog jsyq_id)写错了


应为(unload_dialog azj_id)

maomao2004

你的第二个if是不是多余呀


为什么不和第一个写在一起呢


还有哪个while循环是干什么的？不明白