Question

关于LISP循环读取格式化数据的问题

本人初学LISP，很多东西不明白，我想请教一下各位大侠，现我有一个文本文件，每行存放一个点的坐标值，即：
x1,y1
x2,y2
x3,y3
....
....
xn,yn
我能否用LISP的循环语句每读取一个坐标，然后以坐标为中心R为半径画圆？或者说先将文本读入数组，然后循环每个值进行处理，就像C语言和VB语言的For循环一样，读入每行文本的值到数组，然后循环数组的每个值进行语句操作？如果可以的话，具体怎么操作？最好有语句并附上解释，拜谢了！如果回答优秀，可追加分数哈
请教一下，能否在你上面提供的代码上加个运行命令，就是defun C:那样的命令，这样我运行起来方便些，我实在是不知道哪里错了，搞不出来了

Answer 1

你好！陪虚
首先，为方便编程起见，你的文本文件中的数据格式要改变一下，把“,”改为“空格”。
我们的程序从文本文件中读一行数据，并将数据以表的形式返回。对应你旁答的文本文件，它返回包含x和y坐标值的表。你可以把返回的这个表作为圆心使用。芦启燃
编写下列程序：
(DEFUN auto-circle (name r / fr s)
(SETQ fr (OPEN name “r”)
s (READ-LINE fr)
)
(WHILE s
(setq pc (read (strcat "(" s ")")))
(command "circle" pc r)
(setq s (read-line fr))

)
(CLOSE fr)
)
调用程序：
函数（auto-circle "A.TXT" 10）执行后，A.txt文件中的数据就作为圆心坐标画出半径为10的圆。

追问

你这个不是可以执行的命令吧，执行命令是什么，我没法试验你这个结果啊

追答

键入：（auto-circle "A.TXT" 10）

试一试吧。

追问

还是不行，要么提示参数太少，要么就是参数类型错误stringp nil，我中途改了一个啥子东西，突然画出圆了，但是我重新弄那个过程，又不行了，不晓得是哪里出问题了

追答

那是你的数据文本文件没有弄好。数据格式有误。