循环时的多段线

msm54 · 发表于 2022-7-6 14:49:00

我试图编写一个简短的例程，启动“pline”命令，然后为pline上所需的每个点读取一个逗号分隔的文件。该文件存在，包含200-x，y坐标（例如0,0）

我的代码是：

（defun c:drawfoil（）
（setq f（打开“c:/NACA 1212 100points.txt”“r”）-打开要读取的文件
（命令“pline”dataline“”）
（命令行“strtpt endpt”）
（而（/=数据线“EOF”）-循环直到文件结束
（setq数据线（读取线f））-读取数据行
)
（关闭f）-关闭文件
)

命令行如下所示：

命令：（加载“drawfoil”）
C：拉丝箔
命令：drawfoil
_普林
指定起点：EOF
无效点。
; 错误：功能已取消
指定起点：*取消*

看起来pline命令正在执行，但我正在获取我在文件末尾插入的“EOF”，以停止循环。我知道存在于这个文本文件中的200 x，y坐标发生了什么？

感谢您的帮助。

msm54