wgq2808 发表于 2010-10-13 19:07:00

[求助]小数位数

怎么样确定小数的位数

bmy07 发表于 2010-10-13 19:42:00

(rtos ss 2 2)

Gu_xl 发表于 2010-10-13 20:14:00


;;;gxl-NumJD Num 数字 Jd 数字保留小数点位数，四舍五入
(defun gxl-NumJD(Num JD / Num1 d)
(if (> Num 0)
    (setq d 0.5)
    (setq d -0.5)
    )
(setq Num1 (* 1.0 (expt 10 JD)))
(/ (fix (+ (* Num Num1) d)) Num1)
)

wgq2808 发表于 2010-10-13 21:25:00

<p>谢谢</p>

自贡黄明儒 发表于 2010-10-15 18:40:00

<p><font face="Verdana"><a href="http://www.cncad.net/thread-282893-1-1.html">http://www.cncad.net/thread-282893-1-1.html</a></font>中，我是这样写的</p>
<p><font face="Verdana">(setvar "dimzin" 0)&nbsp;&nbsp;&nbsp;;rtos时保留小数位数<br/>&nbsp; (setvar "dimazin" 0)</font></p>
<p>;;;;;;</p>
<p><font face="Verdana">(if (&lt; ed5-st 10.0)<br/>&nbsp;&nbsp;&nbsp; (setq ed5-st (rtos ed5-st 2 3))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(&gt;= ed5-st 100.0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ed5-st (rtos ed5-st 2 1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ed5-st (rtos ed5-st 2 2))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</font></p>
<p>;;;;;;</p>

革天明 发表于 2012-8-30 18:04:15

Gu_xl 发表于 2010-10-13 20:14 static/image/common/back.gif


_$ (GXL-NUMJD 0.04 5)
0.04
_$ (GXL-NUMJD 0.04125646632 5)
0.04126
_$
版主，此函数只会截取不会补，第一个我希望返回的是0.04000，我自己写个吧
页: [1]
查看完整版本: [求助]小数位数