[求助]：菜鸟问题，为何出现如图的问题

zhouri

(defun c:test()
(setq e (entsel"\n选择"))
(setq ename (car e))
(setq m  (entget ename))
(setq lay (cdr(assoc 8 m)))
(princ  "\n选择要刷的实体")
(setq ss (ssget))
(setq i 1)

(repeat (sslength ss)
  (setq m2  (entget (ssname SS i)))
  (setq m2 (subst (cons 8 lay) (assoc 8 m2) m2))
  (entmod m2)
  (setq i (+ 1 i))
)
(princ)
)

编的刷图层用的，基本上好用，就是还会出现如图的错误。

xyp1964

(ssname SS i)中i的起始值应该为0！
修改如下：
[php]
(defun c:test ()
  (while (not (setq e (entsel "\n选择层名样板 : "))))
  (princ "\n选择要层名匹配的实体 : ")
  (setq        ename (car e)
        m     (entget ename)
        lay   (cdr (assoc 8 m))
        ss    (ssget)
        i     0
  )
  (repeat (sslength ss)
    (setq m2 (entget (ssname SS i))
          m2 (subst (cons 8 lay) (assoc 8 m2) m2)
    )
    (entmod m2)
    (setq i (+ 1 i))
  )
  (princ)
)[/php]

zhouri

最初由 xyp1964 发布
[B](ssname SS i)中i的起始值应该为0！
修改如下：
[php]
(defun c:test ()
  (while (not (setq e (entsel "\n选择层名样板 : "))))
  (princ "\n选择要层名匹配的实体 : ")
  (setq        ename (car e)
        m     (ent... [/B]

谢谢了，不好意思哦，我犯的都是低级错误，我还是新手。随便问一句，xyp大哥用的什么来编的，我感觉你的程序写得很工整。

gnol

受益匪浅,,谢谢大侠