[功能] 数值后续零清除

/db_自贡黄明儒_

我们单位在2003年破产重组以前，曾是国家二级企业，标准化工作做得不错，
对明细栏重量曾有这样的规定:<10的保留三位小数；>=10且<100的，保留两位小数，>=100,保留一位小数

2. 
   
3. ;;162.1 [功能] 数值后续零清除
   
4. ;|值为 0 到 3 时仅影响英尺-英寸标注：
   
5. DIMZIN
   
6. 0 消除零英尺和零英寸
   
7. 1 包含零英尺和零英寸
   
8. 2 包含零英尺，消除零英寸
   
9. 3 包含零英寸，消除零英尺
   
10. 4 消除十进制标注中的前导零（例如，0.5000 变为 .5000）
    
11. 8 消除十进制标注中的后续零（例如，12.5000 变为 12.5）
    
12. 12 消除前导零和后续零（例如，0.5000 变为 .5）
    
13. |;
    
14. ;;示例(HH:rtosr 2.500)；"2.5"
    
15. (defun HH:rtosr (RealNum / DIMZIN1 SHORTREAL1)
    
16.   (setq DimZin1 (getvar "DIMZIN"))
    
17.   (setvar "DIMZIN" 8)
    
18.   (setq ShortReal1 (rtos RealNum 2 8))
    
19.   (setvar "DIMZIN" DimZin1)
    
20.   ShortReal1
    
21. )
    

<br /> ;;162.1 [功能] 数值后续零清除<br /> ;|值为 0 到 3 时仅影响英尺-英寸标注：<br /> DIMZIN<br /> 0 消除零英尺和零英寸<br /> 1 包含零英尺和零英寸<br /> 2 包含零英尺，消除零英寸<br /> 3 包含零英寸，消除零英尺<br /> 4 消除十进制标注中的前导零（例如，0.5000 变为 .5000）<br /> 8 消除十进制标注中的后续零（例如，12.5000 变为 12.5）<br /> 12 消除前导零和后续零（例如，0.5000 变为 .5）<br /> |;<br /> ;;示例(HH:rtosr 2.500)；"2.5"<br /> (defun HH:rtosr (RealNum / DIMZIN1 SHORTREAL1)<br />   (setq DimZin1 (getvar "DIMZIN"))<br />   (setvar "DIMZIN" 8)<br />   (setq ShortReal1 (rtos RealNum 2 8))<br />   (setvar "DIMZIN" DimZin1)<br />   ShortReal1<br /> )<br />

;;是不是直接写(rtos RealNum 2 8)就可以了？

newer

黄工以前单位是施工企业吗？

rq28

支持黄工，有国企风范，有私企思相{:soso_e179:}