CAD lisp中，是否可以获取自己所在的lisp源代码文件的当前所在路径名？

(findfile "setting.txt")

用以做态慎上语句获取你这个文件的完整路径，前提是不管这闭坦个文件是放在那个目录，必须将该目录纯敬设置在autocad的支持文件搜索路径内，否则是找不到该文件目录的

文件读取样例

(defun c:loadd()

(vl-load-com)

以读的方式打开文件 "c:/lj.txt" lj.txt的内容“h:”

(setq wjm "c:/lj.txt")

(if (findfile wjm)

如果文件存在，就打开文件并读出第一行内容之后关闭

(progn

读取文件中的一行，将读出来的值赋予panfu

(setq fff (open wjm "r")

panfu (read-line fff)

)

关闭文件

(close fff)

(if (/= panfu nil)

(progn

将变量panfu的内容与/cx/H7.dvb连接成一个字符串

(setq zfc (strcat panfu "/cx/H7.dvb"))

加载VBA工程h:/cx/H7.dvb

(command "_vbaload" zfc)

)

)

)

如果文件不存在就退出

(vl-exit-with-error (alert "c:/lj.txt不存在, 程序将结束!"))

)

(princ)

)

(defun List_FromFile (fn / f l ll)

 (if (setq f 键乎(open (findfile fn) "r"))

   (progn

     (while (setq l (read-line f))

       (setq ll (cons  l ll))

     )

     (close f)

   )

 )

 (reverse ll)

) 

(setq 余罩data_file_patch (strcat "e:\\test\\DataFile\\" "data.txt"))设文件路径

(setq lst (List_FromFile data_file_patch))get list

(car lst)获取文件中的第一个稿毁悉数据

(cadr lst)获取文件中的第二个数据

(caddr lst)获取文件中的第三个数据

(nth 3)获取文件中的第四个数据

---