Auto numbering text strings

[teknomatika]

Hello. I have looked here but not found. Does anyone know a routine that enables the auto numbering text strings by selecting one by one?

[Tharwat]

Quickie one

 

(defun c:Test (/ s i e)
 ;;;    Tharwat 04.03.2015    ;;;
 (if (setq i (getint "\n Specify the start number :"))
   (while (and (princ "\n Pick a text :")
               (setq s (ssget "_+.:S:E:L" '((0 . "TEXT,MTEXT"))))
          )
     (entupd
       (cdr
         (assoc
           -1
           (entmod
             (subst
               (cons
                 1
                 (strcat (if (< i 10)
                           (strcat "0" (itoa i))
                           (itoa i)
                         )
                         "-"
                         (cdr (assoc 1 (setq e (entget (ssname s 0)))))
                 )
               )
               (assoc 1 e)
               e
             )
           )
         )
       )
     )
     (setq i (1+ i))
   )
 )
 (princ)
)

[teknomatika]

Quickie one

 

(defun c:Test (/ s i e)
 ;;;    Tharwat 04.03.2015    ;;;
 (if (setq i (getint "\n Specify the start number :"))
   (while (and (princ "\n Pick a text :")
               (setq s (ssget "_+.:S:E:L" '((0 . "TEXT,MTEXT"))))
          )
     (entupd
       (cdr
         (assoc
           -1
           (entmod
             (subst
               (cons
                 1
                 (strcat (if (< i 10)
                           (strcat "0" (itoa i))
                           (itoa i)
                         )
                         "-"
                         (cdr (assoc 1 (setq e (entget (ssname s 0)))))
                 )
               )
               (assoc 1 e)
               e
             )
           )
         )
       )
     )
     (setq i (1+ i))
   )
 )
 (princ)
)

 

Tharwat,

Excellent. I appreciate the availability and sharing.

Thanks!

[Lee Mac]

Hello. I have looked here but not found. Does anyone know a routine that enables the auto numbering text strings by selecting one by one?

 

You could use the 'Replace' option offered by my Incremental Numbering Suite - simply type 'R' when placing text to enter this mode.

[Tharwat]

Tharwat,

Excellent. I appreciate the availability and sharing.

Thanks!

 

You are most welcome .

[minhphuong_humg]

You could use the 'Replace' option offered by my Incremental Numbering Suite - simply type 'R' when placing text to enter this mode.

 

That greate. Thank Lee Mac!

[Lee Mac]

That greate. Thank Lee Mac!

 

You're welcome!

[minhphuong_humg]

You're welcome!

 

I see still lacks some features: For example:

1.1 1.2 1.3 ..... (1/1 1/2 1/3 can .......)

or

1a.1 1a.2 1a.3 ....... (can 1a / 1a 1/2 ........)

If added, the great!

[teknomatika]

You could use the 'Replace' option offered by my Incremental Numbering Suite - simply type 'R' when placing text to enter this mode.

 

Lee, also use this routine (NumInc), which is fantastic. However, in this situation in particular, I wanted to add to the sequence number of the selected text string and not just the substitution.

Anyway, thank you for your attention.