(defun C:AutoNumber ()

 (setq text_size (getreal (strcat "Enter text size : ")))
 (setq start_number (getint (strcat "Select the start number : ")))
 (setq koordinat (getpoint "Specify first point :"))
 (setq koordinatx (car koordinat))
 (setq koordinaty (cadr koordinat))
 (setq koordinatxy (list koordinatx (+ (/ text_size 2) koordinaty) 0))
 (command "text" "m" koordinatxy text_size "0" (fix start_number))

 (while (> 10000)
 (setq start_number (+ 1 start_number))
 (setq koordinat (getpoint "Specify next point :"))
 (setq koordinatx (car koordinat))
 (setq koordinaty (cadr koordinat))
 (setq koordinatxy (list koordinatx (+ (/ text_size 2) koordinaty) 0))
 (command "text" "m" koordinatxy text_size "0" (fix start_number))
 )
 )