格式字符的材料重量计算 - 重新编写

sutai

直接点选文字，不需要互动了，可以应付的格式见附图。
思路：为应付各种情况，包括乘号为小写大写的X、空格等，数值判断从尾巴开始往前推。
DWG附件为测试用，上面一排文字为测试非法格式判断用。
修改：
字符高度匹配目标文字高度；
应付数值前无字母形式，原来的会出错。

发现错误请回帖告知，谢谢！

自贡黄明儒

yangist 发表于 2015-2-9 16:08
哦 和字体有关 难怪GB里用t表示板厚了  很科学
后来的问题我找到答案了(setvar "dimtoh" 1) 还是感谢

与字体有关，你用(setvar "dimtoh" 1)就解决了？？？

kexiya123

明显计算结果对不上啊

cable2004

钢板材料重量计算

sutai

cable2004 发表于 2015-2-8 11:58
钢板材料重量计算

能否用于Q235（5*100*200）、Q235A（5*100*200）、45（5*100*200）、45#（5*100*200）、20-5*100*200、20-t5*100*200
即出现4组数字时能区分吗？
钢板t10*100*200 这种格式可能建筑行业用的吧，我们不能用“钢板”，也不能仅用个t或δ，必须有材料牌号。

timmy521

谢谢你了，正需要呢，谢谢你提供思路。

yangist

一切都还好,就是 δ还是计算的结果不一致

sutai

yangist 发表于 2015-2-9 07:46
一切都还好,就是 δ还是计算的结果不一致

在kg行下面加上一行
(setq kg (* (read txt1) (read txt2) (read txt3) 0.000001 den))
(if (vl-string-position 166 str1) (setq kg (/ kg 0.341)))

yangist

sutai 发表于 2015-2-9 09:14
在kg行下面加上一行
(setq kg (* (read txt1) (read txt2) (read txt3) 0.000001 den))
(if (vl-string ...

经测试 还是无效噢

sutai

yangist 发表于 2015-2-9 13:44
经测试 还是无效噢

把你的文件传上来看看。

yangist

sutai 发表于 2015-2-9 15:06
把你的文件传上来看看。

我也是在tt2里做的

sutai

yangist 发表于 2015-2-9 15:18
我也是在tt2里做的

把那行换成
(if (or (wcmatch str1 "*\\U+03B410*") (vl-string-position 166 str1)) (setq kg (/ kg 0.341)))

可能你使用的字体没有那个字码，我的字体不需要那个U+什么的


你先看看行不行，我这里下班了，要关门了。