[编程申请]：请帮忙修改代码

agang198

功能：逐层搜索对象，如发现第N层为空或不存在，则自动新建图层N，颜色也问N，同时循环退出。谢谢！
(defun c:xg ()
  (setq a 0)
  (setq b 0)
  (setq i 1)
  (while (= a 1)
    (setq tcm (strcat "layer" (rtos i 2 0)))
    (setq gj (ssget "X" (list (cons 8 tcm))))
    (if        gj
      (setq a 0)
      (progn
        (setq a 1)
        (command "Layer" "m" tcm "")
        (setq co i)
        (command "color" co)
      )
    )                                        ;end if
    (setq i (+ i 1))
  )                                        ;end while
)                                        ;end defun

zxq0220

a=0循环不执行。

agang198

谢谢楼上的答复。
while  (= a 1)表述的应该是：循环到a＝1为止。若a不等于1，比如为0则继续循环。
这样可以让预先不知到循环次数的循环自动退出。
编程的目的只是解决问题。我换了一个计算方法把目的实现了，代码如下：
(defun c:xc()
  (setq a 0)
  (setq c 1)
  (setq bl1 (list))
  (setq b 0)
  (setq i 1)
  (repeat 256
    (setq tcm (strcat "layer" (rtos i 2 0)))
    (setq gj (ssget "X" (list (cons 8 tcm))))
    (if        gj
      (setq a 0)
      (progn
        (setq bl1 (cons i bl1))
      )
    )                                        ;end if
    (setq i (+ i 1))
  )                                        ;end repeat
  (setq j 0)
  (setq m (length bl1))
  (setq bl2 259)
  (setq c bl2)
  (repeat m
    (setq bl2 (nth j bl1))
    (if        (< bl2 c)
      (setq c bl2)
      (setq jhh 3)
    )                                        ;end if
    (setq j (+ j 1))
  )                                        ;end repeat
  (setq tcm (strcat "layer" (rtos c 2 0)))
  (command "Layer" "m" tcm "")
  (setq co c)
  (command "color" co)
)                                        ;end defun
在2004里运行通过。