[求助]：如何调整数字的精度?

carrot1983

我想知道怎么样调整一下数字的精度，也就是说，在小数点后再加上三位数，请帮助!!!
我自己编的是:取的坐标点为"pt1",单位为米.
当中用到下面这么几句:
(setq pt1_x (car pt1))
(setq pt1_y (cadr pt1))
(setq xx_str (rtos (* 1e-3 pt1_x) 2 3))
(setq xx (strcat "x=" xx_str)) ;取得“x=数字”。
(setq yy_str (rtos (* 1e-3 pt1_y) 2 3))
(setq yy (strcat "y=" yy_str)) ;取得“y=数字”。

可是我得到的结果是:比如说整数100,得出来是x=100
而不是x=100.000.其它的正常
不懂怎么调整,希望能够得到大家的解答.

carrot1983

;***********************************************标注拾取点的XY值。
(defun c:xy()

(setq cmd (getvar "cmdecho"))
(setq blip (getvar "blipmode"))
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)

(setq aa 4)
(setq bb 8)


(setq abc (strcat "\n please input the TEXTSIZE<300>："))
(setq txt_high (getreal abc))  ;输入XY值的字体高度。
(if (= nil txt_high) (setq txt_high 300))  ;如果回车，则字体高度取默认值。

(setq k 1)   ;循环语句
(while (= k 1) ;循环语句
(setvar "osmode" 695)
(setq pt1 (getpoint "\n get the point："))  ;拾取要标注的点。
(initget 32)
(setq pt2 (getpoint pt1 "\n get the position："))  ;拾取标注的位置。
(setq ang12 (angle pt1 pt2))  
(setq pt1_x (car pt1))
(setq pt1_y (cadr pt1))

   
;标注点十字形的四个点。
(setq pt1_L (polar pt1 pi txt_high))  
(setq pt1_R (polar pt1 0 txt_high))
(setq pt1_U (polar pt1 (* pi 0.5) txt_high))  
(setq pt1_D (polar pt1 (* pi 1.5) txt_high))
  
(setq xx_str (rtos (* 1e-3 pt1_x) 2 3))
(setq xx (strcat "x=" xx_str))  ;取得“x=数字”。
(setq yy_str (rtos (* 1e-3 pt1_y) 2 3))
(setq yy (strcat "y=" yy_str))  ;取得“y=数字”。
   
(setvar "osmode" 0)
;:::::::::::::::::::::::::::::::::::::::::::::
(if (and (>= ang12 (* 0.5 pi)) (<= ang12 (* 1.5 pi)))
  (progn
       
(setq pt2_x (car pt2))
(setq pt2_y (cadr pt2))
  
(setq ptU_1st (list (- pt2_x (* bb txt_high) )
                    (+ pt2_y (* 0.5 txt_high))
                    ))  ;X值文本的第一个点。
(setq ptU_2nd (list
                (- pt2_x (* bb txt_high) )
                pt2_y
                ))  ;标注线的最后一个点。
(setq ptD_1st (list
                (- pt2_x (* bb txt_high) )
                (- pt2_y (* 1.5 txt_high))
                ))  ;Y值文本的第一个点。

;输入上下XY文本，以及画出所需的线。
(command "text" ptU_1st txt_high "" xx"")
(command "text" ptD_1st txt_high "" yy"")  
(command "pline" pt1_L pt1_R pt1 pt1_U pt1_D pt1 pt2 ptU_2nd"")
))

;:::::::::::::::::::::::::::::::::::::::::::::
(if (or (< ang12 (* 0.5 pi)) (> ang12 (* 1.5 pi)))
  (progn
       
(setq pt2_x (car pt2))
(setq pt2_y (cadr pt2))
  
(setq ptU_1st (list (+ (* 0.5 txt_high) pt2_x)
                    (+ pt2_y (* 0.5 txt_high))
                    ))  ;X值文本的第一个点。
(setq ptU_2nd (list
                (+ (* bb txt_high) pt2_x)
                pt2_y
                ))  ;标注线的最后一个点。
(setq ptD_1st (list
                (+ (* 0.5 txt_high) pt2_x)
                (- pt2_y (* 1.5 txt_high))
                ))  ;Y值文本的第一个点。

;输入上下XY文本，以及画出所需的线。
(command "text" ptU_1st txt_high "" xx"")
(command "text" ptD_1st txt_high "" yy"")  
(command "pline" pt1_L pt1_R pt1 pt1_U pt1_D pt1 pt2 ptU_2nd"")
))
  (if (/= (type pt1) (type pt2)) (setq k 0)) ;循环语句
  )   ;循环语句
  
(setvar "osmode" osm)
(setvar "cmdecho" cmd)   
(setvar "blipmode" blip)      
(princ)
)

zxq0220

(SETVAR "DIMZIN" 0)

carrot1983

太感谢了,我问公司的学长,他只是回答我(rtos (* 1e-3 pt1_x) 2 3)是对的.就不耐烦了.
受教了~!~!