[求助]：请各位大侠帮忙修改一下这条程序！thx！

winggun

(setq f(open"c:\\qq.txt" "r"))
(setq a(read-line f))
(while !(/=a "eof")     ；判断文件是否到了末尾，不知道是不是这样判断的呢？
  (setq b(ATOF(read-line f)))
  (setq c(ATOF(read-line f)))
  (command "rectang" b c "")   ；读入对角点画矩形
  (setq a(read-line f))
  )     ；这样是不是可以实现了我不断的读入文件里面的数据，不断地画出矩形呢？
我文件数据储存的格式如下：
(544265   495833   98.57)
(544265   495831   98.64)
(544265   495829   98.71)
(544266   495827   98.78)

ljpnb

应该是这样吧:
[php]
(setq f (open "c:\\qq.txt" "r"))
(setq a (read (read-line f)))
(while (/= a "eof")
  (setq b (read (read-line f)))
  (setq c (read (read-line f)))
  (command "rectang" b c)
  (setq a (read (read-line f)))
)
(close f)
[/php]

winggun

楼上的大侠，你的程序好像还有点问题啊
我加载的时候，他说：
错误: 参数类型错误: stringp nil

aeo

lisp的read-line是读不到"eof"的，除非你特意在后面专门做一个标记"eof".

其实只要到了结束时，read-line返回nil
(while (setq string(read-line a))
  .....

winggun

(setq f(open"c:\\qq.txt" "r"))
(setq a (read-line f))
(while(/= a nil)
(setq b (read a))
(setq d (read(read-line f)))
(command "line" d b "")
(setq a (read-line f))
  )
(close f)
我把程序改成上面那样，他说函数被取消了
什么意思啊？

xyp1964

试试这样：
[php]
(setq f (open "c:\\qq.txt" "r"))
(command "line")
(while (setq a (read-line f))
  (setq b (read a))
  (command b)
)
(close f)
(command "")
[/php]

winggun

好像可以了

谢谢楼上！
其实那个函数被取消是什么意思啊？

xyp1964

问题：
(setq d (read(read-line f)))
(command "line" d b "")
如果文件已经到末尾，第一句就为nil，第二句就出错。