lisp小程序的问题，请各位帮忙

hzzhao

我写了一个程式如下：
(defun text_change (name number name_new)
  (setq name_old (sslength name))
  (while (> name_old 0)
    (setq temp (ssname name (setq name_old (1- name_old))))
    (entmod (subst (cons number name_new)
                   (assoc nember (setq int (entget temp)))
                   int
            )
    )
  )
)
可我先在命令行里输(setq se (ssget))
然后选择文字
接着再输(text_change se 40 8)
这个程式不知道存在什么问题我一直找不出来，请各位指点一下．谢谢．

龙龙仔

;;;usage: (text_change (ssget) 40 8)
(defun TEXT_CHANGE (NAME NUMBER NAME_NEW)
  (setq NAME_OLD (sslength NAME))
  (while (> NAME_OLD 0)
    (setq TEMP (ssname NAME (setq NAME_OLD (1- NAME_OLD))))
    (entmod (subst (cons NUMBER NAME_NEW)
                   (assoc NUMBER (setq INT (entget TEMP)));;錯字 nember
                   INT
            )
    )
  )
  (princ)
)

hzzhao