了liao 发表于 2023-7-5 13:28:59

大神们帮忙看下这个怎么做批量计算

本帖最后由 了liao 于 2023-7-6 13:26 编辑

大神们帮忙看下怎么写个计算程序做批量除法计算，一个个手算太多太麻烦，精度小数点后两位，如果能做到四舍六入五成双就更完美了，请各位大神们出手写个源码

四舍六入五成双：其实就是数值修约，对数字的修约，采取“四舍六入五留双”的办法，当尾数<=4时舍弃，尾数>=6时进入；尾数=5时，若5后面的数字为0，则按5前面为偶数者舍去；为奇数者进入；若5后面的数字是不为零的任何数，则不论5前面的一个数为偶数或奇数均进入。
举个例子：1.024999保留两位小数修约后是1.02，1.025001保留两位小数修约后是1.03，1.025000保留两位小数修约后是1.02，1.015000保留两位小数修约后是1.02











ssyfeng 发表于 2023-7-5 14:19:42

是不是这个效果：


了liao 发表于 2023-7-6 13:11:57

本帖最后由 了liao 于 2023-7-6 13:20 编辑

andyding 发表于 2023-7-5 16:49
(setq ptn (list      (+ (car pt) (* size 1.5));;;把这个1.5改小一点
大佬，四舍六入五成双（就是数值修约）有办法做到吗

(对数字的修约，采取“四舍六入五留双”的办法，当尾数<=4时舍弃，尾数>=6时进入；尾数=5时，若5后面的数字为0，则按5前面为偶数者舍去；为奇数者进入；若5后面的数字是不为零的任何数，则不论5前面的一个数为偶数或奇数均进入。)

andyding 发表于 2023-7-5 16:49:13

了liao 发表于 2023-7-5 16:40
下载用了，功能上基本满足，就是生成的结果没能居中，需要手动移动，CAD2008

(setq ptn (list        (+ (car pt) (* size 1.5));;;把这个1.5改小一点

tiancao100 发表于 2023-7-5 15:17:02

这是砌体结构吗？算它干嘛

andyding 发表于 2023-7-5 15:18:13


我也写了一个





了liao 发表于 2023-7-5 15:44:52

ssyfeng 发表于 2023-7-5 14:19
是不是这个效果：

是的是的，大佬可以发下程序吗

了liao 发表于 2023-7-5 15:47:25

tiancao100 发表于 2023-7-5 15:17
这是砌体结构吗？算它干嘛

是的，局部受压，工作中需要这个系数，更加直观

了liao 发表于 2023-7-5 16:40:14

andyding 发表于 2023-7-5 15:18
我也写了一个


下载用了，功能上基本满足，就是生成的结果没能居中，需要手动移动，CAD2008

Noangler 发表于 2023-7-5 17:34:03

andyding 发表于 2023-7-5 15:18
我也写了一个

谢谢分享源码

jkop 发表于 2023-7-6 11:46:40

下载，测试ok，谢谢分享
页: [1] 2
查看完整版本: 大神们帮忙看下这个怎么做批量计算