帮助，导入。txt表格t

BIGAL · 发表于 2022-7-6 07:27:25

我知道我知道双重职位，我也恨我。。。。我更讨厌文字墙
这是迄今为止修改过的代码，它将输出从中获取的值。txt文件，并在命令提示符下显示它们。

[code]（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 · 发表于 2022-7-6 07:30:28

再次感谢CADWarrior，我开发了一个vba程序来提取数据并生成表格，但我认为ur lisp例程将更加有效。由于我是AutoLISP新手，这将是一次丰富的体验，我认为学习这段代码会学到很多东西。
谢谢BIGAL，我将尝试修改例程。

CADWarrior · 发表于 2022-7-6 07:35:39

那是在像我们这样的男人还年轻的时候，女人们渴望的时候，嗯！

代码也很酷。我以后会把这个拿走用的。我在这里工作的自动化项目使用直接从Excel粘贴的OLE对象，但我总是告诉他们，我们需要某种方法来绘制自己的表格。谢谢比格尔。

NEXTMARCUS · 发表于 2022-7-6 07:37:48

在CIv3d和自动命令到表之前没有任何顾虑

Bill Tillman · 发表于 2022-7-6 07:41:21

嗨，伙计们，我加载了你们的程序CADWarrior，它已经正确过滤了来自的数据。txt文件，现在正如您所说，缺少在表中放置数组。糟糕的是，我的excel宏开始工作不好，解析de数据的代码部分是一个记录的宏，因此出于某种原因，我不知道什么是它有时解析不正确

谢谢

对不起，我的英语很差

BIGAL · 发表于 2022-7-6 07:42:25

1个问题，这个函数程序到底做什么？

NEXTMARCUS · 发表于 2022-7-6 07:46:00

NEXTMARCUS提供的图纸上有14个以上的项目，但文本文件只有4个。。。。是否正在使用多个txt文件？

也不能百分之百确定txt文件中的所有值与图形中的值等效。

从文本文件=>到图形
配置文件名称=配置文件名称
剖面总长度=？？？？？
剖面总体积=？？？？？
外形总重量=总重量
#构件数量=QT
总长度=？？？？？
总重量=？？？？？
总体积=？？？？？
????? = ÁREA（m²）
????? = 佩西菲卡·切奥

NEXTMARCUS · 发表于 2022-7-6 07:51:13

不，只有一个。txt文件/表格

只有4个等效值

配置文件名称=配置文件名称
外形总重量=总重量
型材总长度=压缩机。（m） /面积
#构件数量=QT

CADWarrior · 发表于 2022-7-6 07:52:59

NEXTMARCUS · 发表于 2022-7-6 07:56:41

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

[编程交流] 帮助，导入。txt表格t

发表回复

精选推荐