这是迄今为止修改过的代码，它将输出从中获取的值。txt文件，并在命令提示符下显示它们。
（defun c:txtTab（/）（setq file（getfield“Select a Txt file”“”“Txt”）（setq Txt（open file“r”））（setq linetxt nil）（setq linetxtnew nil）（while（/=（setq line（read line Txt））nil）（setq linetxt（append linetxt（list line）））（foreach line linetxt（while（wcmatch line“*WEIGHT*”）（setq line（vl string subst““WEIGHT”line）））（while（wcmatch line“*LENGTH*”）（setq line（vl string subst“”“LENGTH”行））（while（wcmatch line“*VOLUME*”）（setq line（vl string subst“”“VOLUME”行））（while（wcmatch line“>*”）（setq line（vl string subst“”“>”行）））（while（wcmatch line“* 再次感谢CADWarrior，我开发了一个vba程序来提取数据并生成表格，但我认为ur lisp例程将更加有效。由于我是AutoLISP新手，这将是一次丰富的体验，我认为学习这段代码会学到很多东西。
谢谢BIGAL，我将尝试修改例程。
那是在像我们这样的男人还年轻的时候，女人们渴望的时候，嗯！
代码也很酷。我以后会把这个拿走用的。我在这里工作的自动化项目使用直接从Excel粘贴的OLE对象，但我总是告诉他们，我们需要某种方法来绘制自己的表格。谢谢比格尔。 在CIv3d和自动命令到表之前没有任何顾虑 嗨，伙计们，我加载了你们的程序CADWarrior，它已经正确过滤了来自的数据。txt文件，现在正如您所说，缺少在表中放置数组。糟糕的是，我的excel宏开始工作不好，解析de数据的代码部分是一个记录的宏，因此出于某种原因，我不知道什么是它有时解析不正确
谢谢
对不起，我的英语很差 1个问题，这个函数程序到底做什么？ NEXTMARCUS提供的图纸上有14个以上的项目，但文本文件只有4个。。。。是否正在使用多个txt文件？
也不能百分之百确定txt文件中的所有值与图形中的值等效。
从文本文件=>到图形
配置文件名称=配置文件名称
剖面总长度=？？？？？
剖面总体积=？？？？？
外形总重量=总重量
#构件数量=QT
总长度=？？？？？
总重量=？？？？？
总体积=？？？？？
????? = ÁREA（m²）
????? = 佩西菲卡·切奥 不，只有一个。txt文件/表格
只有4个等效值
配置文件名称=配置文件名称
外形总重量=总重量
型材总长度=压缩机。（m） /面积
#构件数量=QT No, just one .txt file p/ table
there are just 4 equivalent values
Profile Names = Profile Names
Profile Total Weight = Total Weight
Profile Total Length=COMPR.(m)/area
# of Members = QT
页:
1
[2]