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

先将文本文件用（100

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

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

(defun c:ff()

(setvar "cmdecho" 0)

(setq en1(entsel))

(setq en1_data (entget (car en1)))

(setq tuceng1 (assoc 2 en1_data))

(setq tuceng3 (cdr tuceng1))

(setq tuceng (strcat tuceng3 "*" ))

(command "-layer" "c" "8" tuceng "")

(princ tuceng)

(setvar "cmdecho" 1)

(princ)

)

逻辑上：

1获取选择对象的外部参照名称，赋予变量“canzhaotuceng1”；

2将变量canzhaotuceng1和"*"组合，赋予变量"canzhaotuceng"；

3使用(command "-layer" "c" "8" canzhaotuceng "")

因为这些图层的特点就是前面都有参照名

---