[LISP函数]：rtos的用法

god

rtos 可将实数转化为字符串，格式是 rtos 数 方式 精度，假如要用(rtos 2.0 2 1)得到 2.0 这个字符串，但是结果却是 2，其中的0被自动清除了，有什么办法可让小数点后的0还被保留呢？ 我想得到含0的字符串。

ll_j

最初由 god 发布
rtos 可将实数转化为字符串，格式是 rtos 数 方式 精度，假如要用(rtos 2.0 2 1)得到 2.0 这个字符串，但是结果却是 2，其中的0被自动清除了，有什么办法可让小数点后的0还被保留呢？ 我想得到含0的字符串。

1. 
   
2. [B]DIMZIN[/B]
   
3. 
   
4. 类型： 整型
   
5. 保存方式： 图形
   
6. 初始值： 8
   
7. 
   
8. 本系统变量控制在主单位值中是否消零。当在命令行中输入或在“标注注释”对话框的“主单位”下设置时，DIMZIN 存储此值。DIMZIN 的值为 0 到 3 之间时仅影响英尺和英寸标注。
   
9. 
   
10. 0        消除零英尺和零英寸
    
11. 1        包含零英尺和零英寸
    
12. 2        包含零英尺，消除零英寸
    
13. 3        包含零英寸，消除零英尺
    
14. 4        消除十进制标注中的前导零（例如，0.5000 变为 .5000）
    
15. 8        消除十进制标注中的后续零（例如，12.5000 变为 12.5）
    
16. 12        消除前导零和后续零（例如，0.5000 变为 .5）
    
17. 
    
18. DIMZIN 还影响由 AutoLISP (rtos) 和 (angtos) 函数执行的实数和字符串的转换。
    

复制代码

设置DIMZIN=0。

秋枫

2. 
   
3. [FONT=courier new]
   
4. ;;;
   
5. ;;; Returns val with the any trailing zeros beyond the current
   
6. ;;; setting of luprec removed.
   
7. ;;;
   
8. (defun ai_rtos(val / a b units old_dimzin)
   
9.   (setq units (getvar "lunits"))
   
10.   ;; No fiddling if units are Architectural or Fractional
    
11.   (if (or (= units 4) (= units 5))
    
12.     (rtos val)
    
13.     ;; Otherwise work off trailing zeros
    
14.     (progn
    
15.       (setq old_dimzin (getvar "dimzin"))
    
16.       ;; Turn off bit 8
    
17.       (setvar "dimzin" (logand old_dimzin (~ 8)))
    
18.       (setq a (rtos val))
    
19.       ;; Turn on bit 8
    
20.       (setvar "dimzin" (logior old_dimzin 8))
    
21.       (setq b (rtos val units 15))
    
22.       ;; Restore dimzin
    
23.       (setvar "dimzin" old_dimzin)
    
24.       ;; Fuzz factor used in equality check.
    
25.       (if (equal (distof a) (distof b) 0.000001) a b)
    
26.     )
    
27.   )
    
28. )
    
29. [/FONT]

<br /> [FONT=courier new]<br /> ;;;<br /> ;;; Returns val with the any trailing zeros beyond the current <br /> ;;; setting of luprec removed.<br /> ;;; <br /> (defun ai_rtos(val / a b units old_dimzin)<br />   (setq units (getvar "lunits"))<br />   ;; No fiddling if units are Architectural or Fractional<br />   (if (or (= units 4) (= units 5))<br />     (rtos val)<br />     ;; Otherwise work off trailing zeros<br />     (progn<br />       (setq old_dimzin (getvar "dimzin"))<br />       ;; Turn off bit 8<br />       (setvar "dimzin" (logand old_dimzin (~ 8)))<br />       (setq a (rtos val))<br />       ;; Turn on bit 8<br />       (setvar "dimzin" (logior old_dimzin 8))<br />       (setq b (rtos val units 15))<br />       ;; Restore dimzin<br />       (setvar "dimzin" old_dimzin)<br />       ;; Fuzz factor used in equality check.<br />       (if (equal (distof a) (distof b) 0.000001) a b)<br />     )<br />   )<br /> )<br /> [/FONT]

god

这地方真是高手众多阿，谢谢

xvjiex

ll_j 发表于 2002-9-28 17:02
设置DIMZIN=0。

非常感谢，是我要寻找的答案！