[求助]：请问怎么控制格式输出？？？

xiaoyue663

我想读取CAD中的数据保留3位小数直接写出来，并添加其它字符，位数不够补空格，
如“X=   334568.000”“Y= 4324456.456”
但碰到整数时，小数就没了，前面的空格也不知道怎么加，请问怎么才能让它按我要的格式输出啊？？？

xyp1964

(rtos number 2 3)

xiaoyue663

那我前面位数不够补空格怎么办啊
VB里有通配符的概念#######.###
lisp里不知道有没有类似的函数

xyp1964

供参考：

2. [FONT=courier new](defun c:test ()
   
3.   (setq s1 (car (entsel "\n选择数字文本: ")))
   
4.   (if (setq tx1 (distof (cdr (assoc 1 (entget s1)))))
   
5.     (progn
   
6.       (setq tx2        (rtos tx1 2 3)
   
7.             tx3        (rtos tx1 2 0)
   
8.             tx4        (substr tx2 (+ (strlen tx3) 1))
   
9.       )
   
10.       (while (< (strlen tx3) 8)
    
11.         (setq tx3 (strcat " " tx3))
    
12.       )
    
13.       (setq tx (strcat "X=" tx3 tx4))
    
14.     )
    
15.   )
    
16.   tx
    
17. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq s1 (car (entsel "\n选择数字文本: ")))<br />   (if (setq tx1 (distof (cdr (assoc 1 (entget s1)))))<br />     (progn<br />       (setq tx2        (rtos tx1 2 3)<br />             tx3        (rtos tx1 2 0)<br />             tx4        (substr tx2 (+ (strlen tx3) 1))<br />       )<br />       (while (< (strlen tx3) 8)<br />         (setq tx3 (strcat " " tx3))<br />       )<br />       (setq tx (strcat "X=" tx3 tx4))<br />     )<br />   )<br />   tx<br /> )[/FONT]

xiaoyue663

谢谢版主，果然是高手，药到病除！！！