findfile能不能不带后缀

sailorcwx

因为我的程序编译前是lsp文件，但是编译后是vlx文件，这个时候findfile就找不到这个文件了

mccad

你可以先findfile vlx文件，如果为空，再findfile lsp文件。这样可以了吧。

sailorcwx

呵呵,看来只能是查找可能编译的所有文件了,比如vlx,lsp,fas一系列的

jxh2003zfr

用以下方法试试

(defun yourfun (/ p_file)

.

.

.

  (if (not (or (findfile (strcat p_file ".vlx"))

               (findfile (strcat p_file ".lsp"))

               (findfile (strcat p_file ".fas"))

               (findfile (strcat p_file ".exp"))

               (findfile (strcat p_file ".exe"))

               (findfile (strcat p_file ".arx"))

               (findfile p_file)
            ))

      (exit)

     )

.

.

.
)