阅读CAD中的TXT文件
我创建了一个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） 请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。 我会停下来看看外面所有的免费赠品，所有的部分都已经编码好了。如果你仍然想自己做，那么我会输入节名，并将所有值存储在一个文本文件中，这要容易得多。“250UB25”
谷歌“AlsSteelmill.zip”
页:
[1]