lisp如何读取文件中的数据？

200）这样表示，每一行一个点，先用read-line读取，然后用read读让它返回一个表即滑埋（x坐标

y坐标），然后将一个败让凳表付值给一个变量，即可调用察旅了

(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)

)