如何获取小数点编号

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

这是我将浮点值转换为具有所需小数点的浮点值的方法。这是正确的还是我们有其他的方法？

代码][/code]

（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)
 )
)