数字前补0

chenbh2

箱号递增修改,采取以下方式补前0,现在补足4位数就好麻烦,由于刚入门,求各位指导,有没有其他好的函数或方式来解决!
(if ( < n3 11)
   (vla-put-textstring wznv (strcat "" hhz "0" mm  "#箱")))
   (if( > n3  10)
  (vla-put-textstring wznv (strcat "" hhz "" mm  "#箱")))

vectra

http://bbs.mjtd.com/thread-110342-1-1.html

xyp1964

2. ;; tt(分路箱编号递增)
   
3. (defun c:tt ()
   
4.   (setq n3 (getint "\n请输入开始箱号<默认1>: "))
   
5.   (if (= n3 nil)
   
6.     (setq n3 1)
   
7.   )
   
8.   (while (setq wz (ssget ":E:S"))
   
9.     (setq obj (vlax-ename->vla-object (ssname wz 0))
   
10.           qz  (cond ((< n3 10) "000")
    
11.                     ((< n3 100) "00")
    
12.                     ((< n3 1000) "0")
    
13.                     ((< n3 10000) "")
    
14.               )
    
15.           tx  (strcat qz (itoa n3) "#箱")
    
16.           n3  (1+ n3)
    
17.     )
    
18.     (vla-put-textstring obj tx)
    
19.   )
    
20.   (princ)
    
21. )

;; tt(分路箱编号递增)<br /> (defun c:tt ()<br />   (setq n3 (getint "\n请输入开始箱号<默认1>: "))<br />   (if (= n3 nil)<br />     (setq n3 1)<br />   )<br />   (while (setq wz (ssget ":E:S"))<br />     (setq obj (vlax-ename->vla-object (ssname wz 0))<br />           qz  (cond ((< n3 10) "000")<br />                     ((< n3 100) "00")<br />                     ((< n3 1000) "0")<br />                     ((< n3 10000) "")<br />               )<br />           tx  (strcat qz (itoa n3) "#箱")<br />           n3  (1+ n3)<br />     )<br />     (vla-put-textstring obj tx)<br />   )<br />   (princ)<br /> )

chenbh2

谢谢!正是需要的方式.

rk800413

通信设计路过，谢谢大神

阿猪蛋

谢谢!正是需要的方式.