chenbh2 发表于 2014-12-25 17:36:00

数字前补0

本帖最后由 chenbh2 于 2014-12-25 17:37 编辑

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

vectra 发表于 2014-12-25 19:20:51

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

xyp1964 发表于 2014-12-25 21:18:02

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

chenbh2 发表于 2014-12-25 23:05:22

谢谢!正是需要的方式.

rk800413 发表于 2025-3-15 01:28:05

通信设计路过，谢谢大神

阿猪蛋 发表于 2025-3-19 08:48:32

谢谢!正是需要的方式.
页: [1]
查看完整版本: 数字前补0