[讨论]：请问R14的AutoLISP中有判断小数位数的函数吗？

ashan

我查了手头的一些资料好像没有，就是判断一个数有多少位小数的函数，如3.1234应能返回4的函数，请指教！谢谢！

eachy

最初由 ashan 发布
[B]我查了手头的一些资料好像没有，就是判断一个数有多少位小数的函数，如3.1234应能返回4的函数，请指教！谢谢！ [/B]

_$ (vl-princ-to-string (- 3.14156 (fix 3.14156)))
"0.14156"
_$ (- (strlen (vl-princ-to-string (- 3.14156 (fix 3.14156)))) 2)
5
_$ (- (strlen (vl-princ-to-string (- 3 (fix 3)))) 2)
-1
_$ (- (strlen (vl-princ-to-string (- 3.2 (fix 3.2)))) 2)
1
_$

ashan

谢谢斑竹，虽然斑竹是用vlisp函数而不是纯AutoLISP函数，但提供了一个很好的解决思路，但解决得还不完美，如下面的小数就会返回错误的结果：
_$ (- (strlen (vl-princ-to-string (- 3.0000001 3))) 2)
6
正确结果应该返回7
不知道有没有更好的解决方法？

snoopychen

可能这个和acad的位数有关
比如
(setq a 0.00000001)
1.0e-008
命令: !a
1.0e-008
(setq a 0.0000000123456789)
1.23457e-008

位数太多可能不行,得看这个数怎么表达,假如是由字符串的,就应该可以

eachy

这是计算机浮点运算的原因

_$ (rtos (- 3.0000000000000001 3) 2 24)
"0.000000000000000"

ashan

最初由 eachy 发布
[B]这是计算机浮点运算的原因

_$ (rtos (- 3.0000000000000001 3) 2 24)
"0.000000000000000" [/B]

那么在R14中的浮点数可以精确到多少位呢？在“单位”设置里最大可以设置8位小数（也就是luprec系统变量的值），那么我想如果要自己写这个函数的话最起码也应该在8位（包含8位）小数的情况下能得到正确的结果，请大家继续发表意见！

我刚才自己用纯AutoLISP写了一个子程序，最大可判断到8位，初步测试是可以的，还没进一步完善，请大家帮我看看，改进改进：
(defun xsws (datt / ddn1 ddn2 i)
  (setq ddn1 datt)
  (setq ddn2 (fix ddn1))
  (setq i 0)
  (while (> (- ddn1 ddn2) 1e-9)
    (setq ddn1 (* ddn1 10.0))
    (setq ddn2 (fix ddn1))
    (setq i (1+ i))
    (if        (= i 8)
      (setq ddn1 ddn2)
    )
  )
  (setq i i)
)
测试：
_$ (xsws 3.00000001)
8
_$ (xsws 456.0002544505)
8
_$ (xsws 32.02)
2

zxq0220

在ACAD中实数的小数位数一般精度是16位。我将楼主的程序改了一下，可测的位数多些，可是小数的位数大于12后就出错，返回值不对了。

2. 
   
3. (defun xsws (datt / ddn1 i)
   
4. (setq ddn1 datt i 0)
   
5. (while (> (- ddn1 (fix ddn1)) 1e-20)
   
6. (setq ddn1 (* ddn1 10) i (1+ i))
   
7. )
   
8. i
   
9. )
   
10. ;测试
    
11. (xsws 3.01) 2
    
12. (xsws 3.00000000001) 11
    
13. (xsws 3.00000000000001) 15
    
14. (xsws 3.0000000000001) 13
    
15. (xsws 3.000000000001) 16
    
16. (xsws 3.000000000000001) 16
    
17. (xsws 3.0000000000000001) 0
    

<br /> (defun xsws (datt / ddn1 i)<br /> (setq ddn1 datt i 0)<br /> (while (> (- ddn1 (fix ddn1)) 1e-20)<br /> (setq ddn1 (* ddn1 10) i (1+ i))<br /> )<br /> i<br /> )<br /> ;测试<br /> (xsws 3.01) 2<br /> (xsws 3.00000000001) 11<br /> (xsws 3.00000000000001) 15<br /> (xsws 3.0000000000001) 13<br /> (xsws 3.000000000001) 16<br /> (xsws 3.000000000000001) 16<br /> (xsws 3.0000000000000001) 0<br />

eachy

A real is a number containing a decimal point. Numbers between –1 and 1 must contain a leading zero. Real numbers are stored in double-precision floating-point format, providing at least 14 significant digits of precision. Note that VLISP does not show you all the significant digits.

Reals can be expressed in scientific notation, which has an optional e or E followed by the exponent of the number (for example, 0.0000041 is the same as 4.1e-6). Numbers such as 3.1, 0.23, –56.123, and 21,000,000.0 are valid AutoLISP reals.

ashan

最初由 zxq0220 发布
[B]在ACAD中实数的小数位数一般精度是16位。我将楼主的程序改了一下，可测的位数多些，可是小数的位数大于12后就出错，返回值不对了。
[code]
(defun xsws (datt / ddn1 i)
(setq ddn1 datt i 0)
(while (> (- ddn1... [/B]

我就是发现当位数太多时会返回错误结果才在程序中加入>8位时取8位的判断语句的，不过这样处理还是有问题的，不一定是位数大于12才出错，刚才又测试了一下，如下面的小数还是不能返回正确结果：
$ (xsws 50.0002003)
8
_$
用改过的程序则返回15

eachy

你计算这个有什么意义？在哪方面应用？

ashan

最初由 eachy 发布
[B]你计算这个有什么意义？在哪方面应用？ [/B]

有一个程序需要用rtos函数把计算结果比较精确地显示出来并用文字标在图上，标的时候要去掉小数有效位数后面的0，比如56.0004000应标成56.0004，所以需要计算小数位数作为rtos函数的参数使用。
我已经用另外一种算法基本解决了，子程序如下：
(defun xsws2 (datt / i)
  (setq i 14.0)
  (while (zerop (rem (fix (* datt (expt 10.0 i))) 10))
    (setq i (1- i))
        )
  (setq i i)
)

按斑竹的英文资料可以计算出14位小数以下（含14位），初步测试没什么问题。