[1112]如何判读出一个小数点后面有几个数字呢?

jx2008

多谢了，有雪了一些，在晓东这里逛逛收获真不少啊

TLHMQH

我下载了一个程序，是求面积的，精度是4位小数，我想改为1位小数，怎样改？
烦请高手指点！
代码如下：

  (SETQ LASTENT (ENTLAST))

  (setq mj (vlax-ename->vla-object lastent) )

  (setq mj1 (/ (vla-get-area mj) 10000.0 1.0))
  (setq mu (rtos (* mj1 15.0)))
  (SETQ
    string (strcat "面积：" (rtos mj1) "公顷" "(" mu "市亩)")  )
  (command "text" "s" "st" point 30 0 string)
  (PRINC)

phoenixdjq

你的程序也没有给全呀，无法调试，我把程序改了，你自己调试吧
这个程序中你要修改两地方
(SETQ LASTENT (ENTLAST))

(setq mj (vlax-ename->vla-object lastent) )

(setq mj1 (/ (vla-get-area mj) 10000.0 1.0))
(setq mu (rtos (* mj1 15.0) 2 1))
(SETQ
string (strcat "面积：" (rtos mj1 2 1) "公顷" "(" mu "市亩)") )
(command "text" "s" "st" point 30 0 string)
(PRINC)
你看看rtos函数吧
例如：(rtot 1.444 2 1)  返回1.4
其中1.444是原数字，2代表十进制，1代表保留的位数。
这个函数就能满足你。

TLHMQH

18楼。
谢谢！
谢谢！！
再谢谢！！！
我：
CAD略知一点，LISP不通。
多亏高手指点，一路畅通。