如何去小数后的0！

0451doctor · 发表于 2003-12-14 14:17:00

(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 · 发表于 2003-12-14 14:28:00

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

0451doctor · 发表于 2003-12-14 14:33:00

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

lockmyeye · 发表于 2003-12-14 14:37:00

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

BDYCAD · 发表于 2003-12-15 08:16:00

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

luoyaya · 发表于 2003-12-15 10:07:00

要取整数为什么不用FIX?

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

meflying · 发表于 2003-12-15 10:10:00

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

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

luoyaya · 发表于 2003-12-15 12:00:00

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

lockmyeye · 发表于 2003-12-15 13:40:00

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

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

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

nodbird · 发表于 2003-12-16 08:53:00

这样啊

账号		自动登录	找回密码
密码			注册