넘버링, lisp 파일인데 마지막 숫자가

캐드 작업시 넘버링 쉽게하려고 인터넷에서 구한 Autolisp 파일인데

마지막 넘버링이 143?번인가까지 밖에 안되는데..

그 이상하려면 Autolisp 어떤 걸 수정해야 하는거죠??

도움 좀 부탁 드립니다..

(defun c:NT ()
  (setq s_num (getstring "n 시작할 번호입력 : "))
  (setq ts (getreal "n Text size : ")) 
  (setq cs (* ts 1.5)) ; 원의 크기는 문자 크기의 1.5배
  (if (= s_num "") (setq s_num num) (setq num (itoa (1- (read s_num)))))
  (while
      (setvar "osmode" 0)
      (setq txt_pt (getpoint "n Text insertion point: ")) 
       (command ".text" txt_pt ts "" (if (not num) (setq num "0″) (setq num (itoa (1+ (read num)))))"")
   (setq el (entlast))
   (COMMAND "CHANGE" "L" "" "P" "C" "2″ "") ; 문자색상
       (setq os (getvar "osmode"))
       (setq ss (ssadd))
   (ssadd el ss)
       (setq k 0)
       (setq en (ssname ss k))
       (command "justifytext" en "" "mc")
       (setq en (ssname ss k))
       (setq p1 (cdr (assoc 10 (entget en))))
       (setq p2 (cdr (assoc 11 (entget en))))
       (command "circle" p2 cs)
    (COMMAND "CHANGE" "L" "" "P" "C" "2″ "") ;원의 색상
      (setq k (+ k 1))
   (setvar "osmode" os)
   (princ)
 )
)