阅读CAD中的TXT文件

NStephens5 · 发表于 2022-7-5 19:51:18

我创建了一个I-Beam Lisp文件，如下所示：

（defun isec（）
（setq p1（getpoint“\n输入工字段的起点：”）
l（getdist“\n输入工字段的长度：”）
w（getdist“\n输入工字形截面的宽度：”）
t1（getdist“\n输入法兰厚度：”）
t2（getdist“\n输入腹板厚度：”）
p2（列表（+（汽车p1）w）（cadr p1））
p3（列表（汽车p2）（+（cadr p2）t1））
p4（列表（-car p3）（/（-w t2）2））（cadr p3））
p5（列表（car p4）（+（cadr p4）（-l（*2 t1）））
p6（列表（车辆p3）（cadr p5））
p7（列表（car p6）（+（cadr p6）t1））
p8（列表（汽车p1）（+（cadr p1）l））
p9（列表（汽车p8）（（cadr p8）t1））
p10（列表（-car p5）t2）（cadr p5））
p11（列表（-car p4）t2）（cadr p4））
p12（列表（车辆p1）（cadr p11）））
（命令“pline”p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p1）

我创造了一个。我和TXT文件在创建autolisp以读取数字字符串而不是自己手动输入数字时遇到了很多麻烦。请帮我指引正确的方向。

以下是我迄今为止创建和尝试的内容：

（defun isec（）
（setq p1（getpoint“\n输入工字段的起点：”）
（setq fil（打开“isection.txt”“r”）
输入线（读取线fil）
l（getdist“\n输入工字段的长度：”）
w（getdist“\n输入工字形截面的宽度：”）
t1（getdist“\n输入法兰厚度：”）
t2（getdist“\n输入腹板厚度：”）
p2（列表（+（汽车p1）w）（cadr p1））
p3（列表（汽车p2）（+（cadr p2）t1））
p4（列表（-car p3）（/（-w t2）2））（cadr p3））
p5（列表（car p4）（+（cadr p4）（-l（*2 t1）））
p6（列表（车辆p3）（cadr p5））
p7（列表（car p6）（+（cadr p6）t1））
p8（列表（汽车p1）（+（cadr p1）l））
p9（列表（汽车p8）（（cadr p8）t1））
p10（列表（-car p5）t2）（cadr p5））
p11（列表（-（汽车p4）t2）（cadr p4））
p12（列表（车辆p1）（cadr p11）））
（命令“pline”p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p1）