求大神帮小弟看看这个递增编号的写法问题，无法实现JD01~JD09的递增

失落的白羊座24 · 发表于 2020-8-8 13:38:47

求大神帮小弟看看这个递增编号的写法问题，无法实现JD01~JD09的递增，现在的结果是JD1~JD9(无法自动在1前面加0)

修改加工图号插件
(defun c:BH()
(setvar "cmdecho" 0)
(Setq jgt  (Getstring "\n 请输入图号前缀:"))
(Setq Rev  (Getreal "\n 请输入起始图号:"))
(Setq Block (Ssget  '((0 . "Insert"))))
(Setq N 0)
(Setq Rev_new  (strcat jgt (rtos rev 2 0)))
(Repeat (Sslength Block)
   (Setq Ent (Entget (Ssname Block N)))
   (Setq Ent1 Ent)
   (setq SS (Cdr (Assoc -1 ent1)))
   (IF (/= "SEQEND" (cdr (assoc 0 ENT)))
         (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
         (cond
            ((= (CDR (ASSOC 2 ENT1)) "JD01")
            (SETQ ENT1 (SUBST (CONS 1 Rev_new) (ASSOC 1 ENT1) ENT1))
               (ENTMOD ENT1))
            )
         )
         )
(entdel SS)
(entdel SS)
(setq n (1+ n))
   (setq rev (1+ rev))
   (Setq Rev_new  (strcat jgt (rtos rev 2 0)))
)
(setvar "cmdecho" 1)
(princ)
)

原地踏步 · 发表于 2020-8-9 10:41:50

本帖最后由原地踏步于 2020-8-9 10:45 编辑

(Setq Rev  (Getreal "\n 请输入起始图号:")) 最好改为：
(initget 5)
(Setq Rev  (Getint "\n 请输入起始图号:"))
(Setq Rev_new  (strcat jgt (rtos rev 2 0))) 改为：
(Setq Rev_new  (if (< rev 10)
(strcat jgt "0" (itoa rev))
(strcat jgt  (itoa rev))
))

失落的白羊座24 · 发表于 2020-8-10 08:54:31

原地踏步发表于 2020-8-9 10:41
(Setq Rev (Getreal "\n 请输入起始图号:")) 最好改为：
(initget 5)
(Setq Rev (Getint "\n 请输入 ...

感谢大神回复，按照说明修改了命令之后，出现一个问题：只有XX-01是正确的，XX-2~9前面还是没有0

失落的白羊座24 · 发表于 2020-8-10 08:55:02

原地踏步发表于 2020-8-9 10:41
(Setq Rev (Getreal "\n 请输入起始图号:")) 最好改为：
(initget 5)
(Setq Rev (Getint "\n 请输入 ...

修改的命令如下：
修改加工图号插件
(defun c:BH()
(setvar "cmdecho" 0)
(Setq jgt  (Getstring "\n 请输入图号前缀:"))
(initget 5)
(Setq Rev  (Getint "\n 请输入起始图号:"))
(Setq Block (Ssget  '((0 . "Insert"))))
(Setq N 0)
(Setq Rev_new  (if (< rev 10)
(strcat jgt "0" (itoa rev))
(strcat jgt  (itoa rev))
))
(Repeat (Sslength Block)
   (Setq Ent (Entget (Ssname Block N)))
   (Setq Ent1 Ent)
   (setq SS (Cdr (Assoc -1 ent1)))
   (IF (/= "SEQEND" (cdr (assoc 0 ENT)))
         (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
         (cond
            ((= (CDR (ASSOC 2 ENT1)) "JD01")
            (SETQ ENT1 (SUBST (CONS 1 Rev_new) (ASSOC 1 ENT1) ENT1))
               (ENTMOD ENT1))
            )
         )
         )
(entdel SS)
(entdel SS)
(setq n (1+ n))
   (setq rev (1+ rev))
   (Setq Rev_new  (strcat jgt (rtos rev 2 0)))
)
(setvar "cmdecho" 1)
(princ)
)

原地踏步 · 发表于 2020-8-13 16:55:38

你前面改了，后面的 rev_new 也得改呀！

失落的白羊座24 · 发表于 2020-8-14 09:03:33

原地踏步发表于 2020-8-13 16:55
你前面改了，后面的 rev_new 也得改呀！

:D嗯嗯，谢谢，刚刚试了试果然好用了，666

账号		自动登录	找回密码
密码			注册