格式字符的材料重量计算 - 重新编写
本帖最后由 sutai 于 2015-2-9 09:20 编辑直接点选文字，不需要互动了，可以应付的格式见附图。
思路：为应付各种情况，包括乘号为小写大写的X、空格等，数值判断从尾巴开始往前推。
DWG附件为测试用，上面一排文字为测试非法格式判断用。
修改：
字符高度匹配目标文字高度；
应付数值前无字母形式，原来的会出错。
发现错误请回帖告知，谢谢！
yangist 发表于 2015-2-9 16:08
哦 和字体有关 难怪GB里用t表示板厚了很科学
后来的问题我找到答案了(setvar "dimtoh" 1) 还是感谢
与字体有关，你用(setvar "dimtoh" 1)就解决了？？？ 明显计算结果对不上啊 钢板材料重量计算
cable2004 发表于 2015-2-8 11:58 static/image/common/back.gif
钢板材料重量计算
能否用于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或δ，必须有材料牌号。 谢谢你了，正需要呢，谢谢你提供思路。 一切都还好,就是 δ还是计算的结果不一致 yangist 发表于 2015-2-9 07:46 static/image/common/back.gif
一切都还好,就是 δ还是计算的结果不一致
在kg行下面加上一行
(setq kg (* (read txt1) (read txt2) (read txt3) 0.000001 den))
(if (vl-string-position 166 str1) (setq kg (/ kg 0.341))) sutai 发表于 2015-2-9 09:14 static/image/common/back.gif
在kg行下面加上一行
(setq kg (* (read txt1) (read txt2) (read txt3) 0.000001 den))
(if (vl-string ...
经测试 还是无效噢 yangist 发表于 2015-2-9 13:44 static/image/common/back.gif
经测试 还是无效噢
把你的文件传上来看看。 本帖最后由 yangist 于 2015-2-9 15:32 编辑
sutai 发表于 2015-2-9 15:06 static/image/common/back.gif
把你的文件传上来看看。
我也是在tt2里做的
yangist 发表于 2015-2-9 15:18 static/image/common/back.gif
我也是在tt2里做的
把那行换成
(if (or (wcmatch str1 "*\\U+03B410*") (vl-string-position 166 str1)) (setq kg (/ kg 0.341)))
可能你使用的字体没有那个字码，我的字体不需要那个U+什么的
你先看看行不行，我这里下班了，要关门了。
页:
[1]
2