批量递增单行文本开头的数字 参考大神程序改编

wxa123wl

;批量递增单行文本开头的数字  参考大神程序改编
(defun c:ttt()
(vl-load-com)
   (setq sz    (getint"输入起始整数: ")
         szdz  (getint"输入递增整数: ")
         stn   (ssget  (list(cons 0 "*text")))
         stnl  (sslength stn)
         n     0
         reclist nil
   )
   (if (null szdz)(setq szdz 1)) ;不输入递增数默认为1
   (if (null sz)(setq sz 1))     ;不输入起始数默认为1
   (repeat stnl  
      (setq Stnm(ssname stn n)
            inspnt(cdr(assoc 10 (entget stnm)))   
            reclist(cons (list (cadr inspnt) stnm) reclist)
      )
      (setq  n(1+ n))  
   )
   ;Y排序
   ;(vl-sort reclist '(lambda(e1 e2)(<(cadr(car e1))(cadr(car e2))  )))
   (setq  reclist(vl_sort reclist '(lambda(e1 e2)(<(car e1)(car e2))  )))
   ;递增
   (setq n 0)
   (foreach stna reclist
      (setq stnm   (cadr stna)
            stnn   (entget stnm)
            contt  (cdr(assoc 1 stnn))
            szct   (strcat (itoa sz)
                         (vl-string-left-trim " 0123456789" contt)
                    )
      )
      (entmod (subst  (cons 1 szct)
                      (assoc 1 stnn)
                      stnn
              )
      );更新
      (setq n(1+ n)  sz(+ szdz sz))
   )
)

怎么用不了呀！

77077

(setq  reclist(vl_sort reclist '(lambda(e1 e2)(<(car e1)(car e2))  )))

vl_sort  ==>  vl-sort

zwf100

很好，终于找到了

yaokui25

楼主您好，请问如何改成批量递增单行文本 结尾 的数字呢？