各位大神帮我看下修改一下这个循环

664571221

就是这里有一个$%#^&-color-bak-%$&^变量   从0开始循环了255，我想修改下循环10次后 如果继续执行命令，又重新开始重0到10


        ;;---------------------------------------------
        (or $%#^&-color-bak-%$&^$ (setq $%#^&-color-bak-%$&^$ 0))
  (setq en1 (car (entsel "\n选择参照块:")))
        (if (equal (sf-dxf en1 0) "INSERT")
                (progn
                        (setq blk-name (sf-dxf en1 2)
                                ss (ssget "x" (list (cons 2 blk-name)))
                                n -1
                        )
                        (setvar "CECOLOR" (itoa (if (> (1+ $%#^&-color-bak-%$&^$) 255) 1 (setq $%#^&-color-bak-%$&^$ (1+ $%#^&-color-bak-%$&^$)))))
                        (repeat (sslength ss)
                                (setq en0 (ssname ss (setq n (1+ n)))
                                        en0-box (BF-ent-getbox en0 0)
                                        R (* 1.1 0.5 (distance (car en0-box) (cadr en0-box)))
                                        mid-pt (sf-midpt (car en0-box) (cadr en0-box))
                                )
                                (sf-entmake-circle mid-pt R "你好123" 60)
                        )
                )
                (princ "\n选择对象不是块！")
        )
        (princ)
)

vitalgg

设 a 为你的变量，你的变量太长，用a 代替。

1. ;; 初始化 a 为 0
   
2. (setq a 0)
   
3. ...
   
4. ...
   
5. ...
   
6. ;; 每运行一次，a +1，如果 a > 10 则 a=1
   
7. (setq a (if (> a 10) 1 (1+ a)))
   

;; 初始化 a 为 0<br /> (setq a 0)<br /> ...<br /> ...<br /> ...<br /> ;; 每运行一次，a +1，如果 a > 10 则 a=1<br /> (setq a (if (> a 10) 1 (1+ a)))<br />