muthu123 发表于 2022-7-6 11:09:03

如何获取小数点编号

这是我将浮点值转换为具有所需小数点的浮点值的方法。这是正确的还是我们有其他的方法？
 
代码]
 
（Setq a 1.57215）
（atof（rtos a 2 2））[

MSasu 发表于 2022-7-6 11:22:54

这是一个很好的解决方案–AutoLISP没有内置的圆形函数。
 
雷加德，

Lee Mac 发表于 2022-7-6 11:29:40

很好的解决方案，这是我通常使用的：
 

;; Round (Lee Mac)
;; num~number to be rounded.
;; dp   ~decimal place to round at.

(defun Round (num dp / fac)
(setq fac (expt 10. dp))

(if (<= 0.5 (rem (setq num (* fac num)) 1))
   (/ (1+ (fix num)) fac)
   (/   (fix num)fac)
)
)

VovKa 发表于 2022-7-6 11:35:33

接得好！
 

(Round -2.358 2)

Lee Mac 发表于 2022-7-6 11:44:56

超级VovKa
 
我喜欢你做一半的方式，如果你加上它，你可以把-2变成正数

VovKa 发表于 2022-7-6 11:52:23

thanx公司
那是没有ifs编程的日子

Lee Mac 发表于 2022-7-6 11:56:05

的确

VovKa 发表于 2022-7-6 12:05:30

Lee Mac 发表于 2022-7-6 12:13:14

Indeed
页: [1]
查看完整版本: 如何获取小数点编号