(defun c:Copy_AutoNum (/ ent od plus new i ttt bod)
  (princ "\nVyber prvotní text ")
  (if (setq ent (entsel))
    (progn
      (setq ent (entget (car ent)))
      (if (or (= (cdr (assoc 0 ent)) "TEXT")(= (cdr (assoc 0 ent)) "MTEXT")(= (cdr (assoc 0 ent)) "ATTDEF"))
 (progn
   (setq od (getint "\nZadej počáteční hodnotu přičítání [0] :"))
   (if (not od)(setq od 0))
   (setq plus (getint "\nZadej o kolik navýšit další hodnotu [1] :"))
   (if (not plus)(setq plus 1))
   (setq text (cdr (assoc 1 ent)))
   (setq ttt od)
   (setq new (entget (entmakex ent)))
   (setq new (subst (cons 1 (strcat text (itoa ttt)))(assoc 1 new) new))
          (entmod new)
   (command "_move" (cdr (assoc -1 new)) "" (cdr (assoc 10 new)) pause)
   (setq bod (getvar "lastpoint"))
   (while (> (distance bod (cdr (assoc 10 new))) 0)
     (setq ttt (+ ttt plus))
     (setq new (entget (entmakex ent)))
     (setq new (subst (cons 1 (strcat text (itoa ttt)))(assoc 1 new) new))
            (entmod new)
     (command "_move" (cdr (assoc -1 new)) "" (cdr (assoc 10 new)) pause)
       (setq bod (getvar "lastpoint"))
   )
   (entdel (cdr (assoc -1 new)))
        )
 (alert "Vybraná entita není text ani mtext.")
      )
    )
    (alert "Nebyl vybrán žádný text")
  )
)