如何让数值保留小数点后两位

szx025

(setq str (getstring "\n请输入梯高<35>:"))
            (if        (= str "")
                (setq str "T2B07a-35")
                (setq str (strcat "T2B07a-" str))
            )
            (command "text" "j" "c" "non" p1 300 0 str)
如何让str的值保留小数点后两位。比如我输入40，或40.1，最后让生成的结果为T2B07a-40.00或T2B07a-40.10

自贡黄明儒

http://bbs.mjtd.com/thread-108124-1-1.html

szx025

黄大侠，我水平有限，没看懂你的程序，可以再详细说明一下吗

edata

1. (setq bak_dimzin(getvar 'dimzin))
   
2. (setvar 'dimzin 0)
   
3. (setq str (getreal "\n请输入梯高<35>:"))
   
4.             (if str
   
5.               (setq str (strcat "T2B07a-" (rtos str 0 2)))
   
6.               (setq str "T2B07a-35")
   
7.             )
   
8. (and bak_dimzin (setvar 'dimzin bak_dimzin))
   
9.             (command "text" "j" "c" "non" p1 300 0 str)

(setq bak_dimzin(getvar 'dimzin))<br /> (setvar 'dimzin 0)<br /> (setq str (getreal "\n请输入梯高<35>:"))<br />             (if str<br />               (setq str (strcat "T2B07a-" (rtos str 0 2)))<br />               (setq str "T2B07a-35")<br />             )<br /> (and bak_dimzin (setvar 'dimzin bak_dimzin))<br />             (command "text" "j" "c" "non" p1 300 0 str)