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

了liao

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

四舍六入五成双：其实就是数值修约，对数字的修约，采取“四舍六入五留双”的办法，当尾数<=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

是不是这个效果：

了liao

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

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

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

tiancao100

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

andyding

我也写了一个

了liao

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

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

了liao

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

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

了liao

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

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

Noangler

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

谢谢分享源码

jkop

下载，测试ok，谢谢分享