[编程交流] 扫描所选内容一次并递增

(defun c:Test (/ i s e)
 ;; Tharwat - Date: 11.Mar.2017        ;;
 (if (setq i (getint "\nSpecify increment number :"))
   (while
     (progn
       (if (setq s (car (entsel "\nPick text object :")))
         (if (eq (cdr (assoc 0 (setq e (entget s)))) "TEXT")
           (progn
             (entmod
               (subst (cons 1 (strcat (itoa i) (substr (cdr (assoc 1 e)) 2)))
                 (assoc 1 e)
                 e
               )
             )
             (setq i (1+ i))
           )
           (princ "\nInvalid object!. Try again.")
         )
       )
       s
     )
   )
 )
 (princ)
)

(defun c:test ( / i l n s )
   (if (setq s (ssget "_:L" '((0 . "TEXT"))))
       (progn
           (repeat (setq i (sslength s))
               (setq l (cons (entget (ssname s (setq i (1- i)))) l))
           )
           (setq n 0)
           (foreach x (vl-sort l '(lambda ( a b ) (< (cadr (assoc 10 a)) (cadr (assoc 10 b)))))
               (entmod
                   (subst
                       (cons 1
                           (strcat (itoa (setq n (1+ n)))
                               (vl-list->string
                                   (vl-member-if-not
                                      '(lambda ( x ) (< 47 x 58))
                                       (vl-string->list (cdr (assoc 1 x)))
                                   )
                               )
                           )
                       )
                       (assoc 1 x) x
                   )
               )
           )
       )
   )
   (princ)
)