[已解決]請高手們幫我看這個程式哪邊有問題？

(defun c:CodePage(/ INTXT1 I ENT F ENDATA1 F1 ENTS ENTQU QU I1)
 (setvar "cmdecho" 0)
 (SETQ I (GETSTRING "\n 起始數字 :"))
 (setq ENTS(ssget "_:L" '((2 . "BLOCK1"))))
 (SETQ ENTQU (SSLENGTH ENTS))
 (SETQ QU 0)
 (WHILE (< QU ENTQU)
   (SETQ F 0)
   (SETQ ENT (entget(ssname ENTS QU)))
   (SETQ ENDATA1 (ENTGET (ENTNEXT(CDR(CAR ENT)))))
     (WHILE (< F 20)
(SETQ F1 (CDR (ASSOC 2 ENDATA1)))
(IF  (= F1 "$SH_NO")
 (PROGN
   (IF (< (ATOI I) 10)
     (PROGN
       (SETQ ENDATA1 (SUBST (CONS 1  (STRCAT "00" I)) (ASSOC 1 ENDATA1) ENDATA1))
       (ENTMOD ENDATA1)
);PROGN
     );IF
   (SETQ ENDATA1 (SUBST (CONS 1  (STRCAT "0" I)) (ASSOC 1 ENDATA1) ENDATA1))
   (ENTMOD ENDATA1)
   (IF (> (ATOI I) 99)
     (PROGN
       (SETQ ENDATA1 (SUBST (CONS 1 I) (ASSOC 1 ENDATA1) ENDATA1))
       (ENTMOD ENDATA1)
);PROGN
     );IF
   (SETQ I (ITOA(1+ (ATOI I))))
   );PROGN
 );IF
(SETQ ENDATA1 (ENTGET (ENTNEXT (CDR (CAR ENDATA1)))))
(SETQ F(1+ F))
);WHILE
   (SETQ QU (1+ QU))
   );WHILE
   
(prin1)
)

問題是這樣的：剛寫好後，第一次執行正常，後來關掉CAD程式再打開執行，它總是會直接跳過綠色字那一串，真的搞不懂為什麼？ 

附件下載： https://app.box.com/s/7gr8c6wvwuktz9prxedq

方便的話.要請您將.LSP和測試圖檔壓成RAR..附上下載點!!
因為PO的LSP.沒辦法複製. 也無圖檔BLOCK....無法幫忙測試.
目前看起來綠色那一段是因為I值大於10..所以沒執行...有時候.是程式少了部分括號.造成程式執行錯誤.!!

樓主於尋找屬性標籤的時依，並未下(-2 . "SEQEND")的判斷，所以只有第一個圖塊是OK的，第二個圖塊就出錯。
於第二個WHILE下判斷就好了，下面是修改後的程式碼，樓主測試看看吧！

代碼:


(defun c:CodePage (/ INTXT1 I ENT F ENDATA1 F1 ENTS ENTQU QU I1)
  (setvar "cmdecho" 0)
  (SETQ I (GETSTRING "\n 起始數字 :"))
  (setq ENTS (ssget "_:L" '((2 . "BLOCK1"))))
  (SETQ ENTQU (SSLENGTH ENTS))
  (SETQ QU 0)
  (WHILE (< QU ENTQU)
    (SETQ F 0)
    (SETQ ENT (entget (ssname ENTS QU)))
    (SETQ ENDATA1 (ENTGET (ENTNEXT (CDR (CAR ENT)))))
    (WHILE (AND (< F 20) (/= (CDR (ASSOC 0 ENDATA1)) "SEQEND"))
      (SETQ F1 (CDR (ASSOC 2 ENDATA1)))
      (IF (= F1 "$SH_NO")
   (PROGN
     (IF (< (ATOI I) 10)
       (PROGN
         (SETQ ENDATA1 (SUBST (CONS 1 (STRCAT "00" I)) (ASSOC 1 ENDATA1) ENDATA1))
         (ENTMOD ENDATA1)
       ) ;PROGN
     ) ;IF
     (SETQ ENDATA1 (SUBST (CONS 1 (STRCAT "0" I)) (ASSOC 1 ENDATA1) ENDATA1))
     (ENTMOD ENDATA1)
     (IF (> (ATOI I) 99)
       (PROGN
         (SETQ ENDATA1 (SUBST (CONS 1 I) (ASSOC 1 ENDATA1) ENDATA1))
         (ENTMOD ENDATA1)
       ) ;PROGN
     ) ;IF
     (SETQ I (ITOA (1+ (ATOI I))))
   ) ;PROGN
      ) ;IF
      (SETQ ENDATA1 (ENTGET (ENTNEXT (CDR (CAR ENDATA1)))))
      (SETQ F (1+ F))
    ) ;WHILE
    (SETQ QU (1+ QU))
  ) ;WHILE

  (prin1)
)


附件下載： https://app.box.com/s/1t3ym7q3itjh1yqss1wr

謝謝兩位費心的幫小弟看，我剛剛陪家人跨年順便再試看看，結果是我其中2條式子放錯地方了，呵呵!!
問題解決囉!!

熱心提醒，請版主蔣秉澔用編輯功能，將【討論】改成【已解決】