补齐数字的位数

cz78873559

大家好，我想把所选数字在前面用字符0补齐成固定的位数，如补齐成五位:1--00001，2--00002，112---00112，1001---01001......     谁能给我代码，不胜感谢！

edata

1. ;;数字文本补零函数
   
2. ;;code by edata@mjtd
   
3. ;;2014-6-10
   
4. (defun sk_str_addzero(str add_num)
   
5.   (if(and str add_num (= (type str)'STR)(> add_num 0)(= (type add_num)'INT))
   
6.     (if(< (strlen str) add_num)
   
7.       (repeat (- add_num (strlen str))
   
8.         (setq str(strcat "0" str))
   
9.         )
   
10.       str
    
11.       )
    
12.     )
    
13.   )
    
14. ;;选择数字文本补零
    
15. (defun c:tt(/ en ss obj str)
    
16.   (prompt "\n请选择数值文本.多行文字不要带格式.否则无效.")
    
17.   (if(setq ss (ssget '((1 . "*#*"))))
    
18.     (while (setq en(ssname ss 0))
    
19.       (setq obj (vlax-ename->vla-object en)
    
20.             str (vla-get-textstring obj))
    
21.       (vla-put-textstring obj (sk_str_addzero str 5))            
    
22.       (setq ss(ssdel en ss))
    
23.       )
    
24.     )
    
25.   )

;;数字文本补零函数<br /> ;;code by edata@mjtd<br /> ;;2014-6-10 <br /> (defun sk_str_addzero(str add_num)<br />   (if(and str add_num (= (type str)'STR)(> add_num 0)(= (type add_num)'INT))<br />     (if(< (strlen str) add_num)<br />       (repeat (- add_num (strlen str))<br />         (setq str(strcat "0" str))<br />         )<br />       str<br />       )<br />     )<br />   )<br /> ;;选择数字文本补零<br /> (defun c:tt(/ en ss obj str)<br />   (prompt "\n请选择数值文本.多行文字不要带格式.否则无效.")<br />   (if(setq ss (ssget '((1 . "*#*"))))<br />     (while (setq en(ssname ss 0))<br />       (setq obj (vlax-ename->vla-object en)<br />             str (vla-get-textstring obj))<br />       (vla-put-textstring obj (sk_str_addzero str 5))            <br />       (setq ss(ssdel en ss))<br />       )<br />     )<br />   )

cz78873559

edata 发表于 2014-6-10 11:54

能实现了。非常感谢！

360527010

补齐位数如果能根据需要输入就好了