[求助]数字四舍五入？

dhwl2009

cad中如何选定某些数字，对其的小数位数进行特殊制定控制？四舍五入？

比如3.14159

如果我需要2位小数,可以把数字变成3.14,

如果要3位,就继续变成3.142

如我再选择这个"3.142",希望变成5位,就又能把这个数字变回3.14159

也就是希望能对这个数字的真实数值,有一个记忆功能

ZZXXQQ

如果仅仅是四舍五入，7楼可行。
如果要浮点数相等判断，应使用equal函数。

飞诗(fsxm)

(read (rtos 数 2 精度))

来也

楼主的需求正好是我的需要。

只是我的需要更简单点，只需对一些数字进入四舍五入！

哪位大侠能做做贡献啊？！

xshrimp

2. ;;;四舍五入---------------------------------------------------
3. ;;;(gps->round 3.5   0)--->4
4. ;;;(gps->round 3.4   0)--->3
5. ;;;(gps->round 10.25 1) --->10.3
6. (defun gps->round (num n)
7.   (cond
8.    ((= n 0) (fix (+ num 0.5)))
9.    (t (/ (fix (+ (* (expt 10 n) num) 0.5)) (float (expt 10 n))))
10.   )
11. )

;;;四舍五入--------------------------------------------------- ;;;(gps->round 3.5   0)--->4 ;;;(gps->round 3.4   0)--->3 ;;;(gps->round 10.25 1) --->10.3 (defun gps->round (num n)   (cond    ((= n 0) (fix (+ num 0.5)))    (t (/ (fix (+ (* (expt 10 n) num) 0.5)) (float (expt 10 n))))   ) )

zml84

<img src="http://1822.img.pp.sohu.com.cn/images/blog/2008/10/21/10/3/11dc4c3eac5g215.jpg" border="0" alt=""/>

muwind

命令: (GPS->ROUND  1.255 2)
1.25

但是

命令: (GPS->ROUND  1.355 2)
1.36

为什么呢

来也

;;;四舍五入---------------------------------------------------
;;;(gps->round 3.5   0)--->4
;;;(gps->round 3.4   0)--->3
;;;(gps->round 10.25 1) --->10.3
(defun gps->round (num n)
   (cond
    ((= n 0) (fix (+ num 0.5)))
    (t (/ (fix (+ (* (expt 10 n) num) 0.5)) (float (expt 10 n))))
   )
)

是LSP程序吗，不会用！

我的问题是其实对数字四舍五入，但保留原有位数。比如3.5四舍五入后变成4.0，3.4四舍五入后变成3.0

xshrimp

(= 126   (+ (* 100 1.255 ) 0.50) ) ->nil
(= 136   (+ (* 100 1.355 ) 0.50) ) ->T

(+ (* 100 1.255 ) 0.50)->126.0

(+ (* 100 1.355 ) 0.50)->136.0

(fix (+ (* 100 1.255 ) 0.50))->125

(fix (+ (* 100 1.355 ) 0.50))->136

搞不明白为什么!!

xshrimp

fsxm的简洁..不知道我的为什么
(< (* 100 1.255 ) 125.5)->T  ????
(= (* 100 1.355 ) 135.5)->T  ????

2. ;;;四舍五入---------------------------------------------------
3. ;;;(GPS->ROUND  1.355 2)--->1.36
4. ;;;(GPS->ROUND  1.255 2)--->1.26
5. (defun gps->round (num n)
6.    (cond
7.     ((= n 0) (fix (+ num 0.5)))
8.     (t (/ (fix (read (vl-prin1-to-string (+ (* (expt 10 n) num 1.00) 0.5)))) (float (expt 10 n))))
9.    )
10. )

;;;四舍五入--------------------------------------------------- ;;;(GPS->ROUND  1.355 2)--->1.36 ;;;(GPS->ROUND  1.255 2)--->1.26 (defun gps->round (num n)    (cond     ((= n 0) (fix (+ num 0.5)))     (t (/ (fix (read (vl-prin1-to-string (+ (* (expt 10 n) num 1.00) 0.5)))) (float (expt 10 n))))    ) )