如何去小数后的0！

0451doctor

(defun c:aa ()
    (setvar "dimdec" 2)
    (setq ip (getpoint)
          aa 96.5
          
    )
    (setvar "dimdec" 3)
    (setvar "dimzin" 9)
    (vl-cmdf "text" ip 3.5 90 aa)
)
运行后显示的是96.5000000000000
如何去掉没有用的0呀
用改变系统参数实现，而不是把aa变成字符串。

lockmyeye

用改变系统参数实现?
拭目以待，鲜花等候：）

0451doctor

楼上你的意思是无法实现了！

lockmyeye

不是的，只是我没有实现，在期待好手出来实现。

BDYCAD

我是這樣的呀. 只能取整數哦.不知合不合你的要求. 所以供你參考參考.
(setq nnn (getreal"\n輸入次數:"))
(SETQ NNN(atoi (rtos nnn)))

luoyaya

要取整数为什么不用FIX?

不会如果只是做显示用可以用一个
(vl-string-right-trim "." (vl-string-right-trim "0" "9.0500000"))
这样就行了,~

meflying

0451doctor发表于2003-12-14 14:17:00如何去小数后的0！
如何去掉没有用的0呀
用改变系统参数实现，而不是把aa变成字符串。

很奇怪，如果不变字符串，作为数字，用于计算，后面的0有什么影响？
如果是作为TEXT输出显示，那变成字符串又有何不妥？

luoyaya

我也觉得哦,0多么精度高呀,要显示么用字符串不是挺好的啊~

lockmyeye

meflying发表于2003-12-15 10:10:00以下是引用0451doctor在2003-12-14 14:17:41的发言：
如何去小数后的0！
如何去掉没有用的0呀
用改变系统参数实现，而不是把aa变成字符串。

很奇怪，如果不变字符串，作为数字，用于计算，后面的0有什么影响？
如果是作为TEXT输出显示，那变成字符串又有何不妥？
[/quote]

说得也是，看来这是一个不是问题的问题：）

nodbird

这样啊