Automatically Number

;; 실명이나 축열처럼 뒷 일련번호를 추가하면서 연속으로 복사
;;===================AUTOMATICALLY NUMBER=======================
(defun KM:AN ( / txt_lst source string_sn style_sn size_sn serial )
(setq source (entget (car (entsel "\n SELECT SOURCE TEXT: \n"))))
(setq string_sn (cdr (assoc 1 source)))
(setq style_sn (cdr (assoc 7 source)))
(setq size_sn (cdr (assoc 40 source)))
(setq serial 1)
(repeat 99
(setq p1 (getpoint "\nPick point..."))
(if (> serial 9)
(progn (setq _SN (strcat string_sn "" (itoa serial))))
(setq _SN (strcat string_sn "0" (itoa serial))))
(entmake (list (cons 0 "TEXT") (cons 1 _SN) (cons 7 style_sn)  (cons 10 p1)(cons 40 size_sn)))
(setq serial (1+ serial)))
);defun