[討論]請問各位大大下面的lisp錯在哪裡？

各位前輩平安
這個lisp想要將圖面3個entity依序變更顏色為10、11、12號顏色
但是，執行後只能變更第1個entity
然後就中斷了
是否能麻煩各位幫忙看一下，問題出現在哪裡，謝謝
(defun c:ttt()
(setq e1 (entnext))
(setq ii 9)  
(repeat 3 (
  (setq ii (+ ii 1))
  (setq ee e1)
  (setq en_data (entget ee))
  (setq oldcor (assoc 62 en_data))
  (setq newcor (cons 62 ii))
  (setq en_data (subst newcor oldcor en_data))
  (entmod en_data)
  (setq e1 (entnext ee))
))
)

依需求修改一下，不一定是三個物件，但是顏色會從10開始依選擇的順序往下增加！
(defun c:ttt (/ ss l)
 (setq ss (ssget))
 (setq l (sslength ss)) ;選擇物件
 (setq n 10) ;起始顏色代碼編號
 (setq i 0)
 (repeat l
   (setq en_data (entget (ssname ss i)))
   (setq oldcor (assoc 62 en_data))
   (setq newcor (cons 62 (+ i 10)))
   (if oldcor
     (setq en_data (subst newcor oldcor en_data))
     (setq en_data (append en_data (list newcor)))
   )
   (entmod en_data)
   (setq i (1+ i))
 )
)

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

謝謝Atsai的回覆，受益良多。謝謝。