请高手看一下什么问题

tc405003

(defun c:tcc ( / e0 l n s1 xzjtxt)
  (CMDLA0)
  (command "color" "bylayer")
  (setq wenzhi (getstring "\n请输入想要修改的文字：<可部分文字>"))
   (MKLA "tangchao" 2)
(if (setq s1 (ssget "x" '((0 . "TEXT"))))
  (progn
 (setq l 0 n (sslength s1) xzjtxt (ssadd))
     (while (< l n)
     (setq e (ssname s1 l))
 (setq eb (entget e))
    ;(REPEAT (sslength s1)

      (if (or (and (= "TEXT" (cdr (assoc 0 eb))) (wcmatch (cdr (assoc 1 eb)) "*"wenzhi"*")))
      ;(if (setq s1 (ssget "x" (LIST(CONS 0  "TEXT") (CONS 1  (STRCAT "*"wenzhi"*")))))
 (ssadd (ssname s1 l) xzjtxt)
 )
       (setq l (1+ l))
      )
    (if (< 0(sslength xzjtxt))
      (progn (command "change" xzjtxt "" "p" "la" name "")
 (COMMAND "CHPROP" xzjtxt "" "C" "BYLAYER" "")
 (princ "\n程序提示:修改完成."))
 )
      (princ "\n程序提示: 没有找到要修改的图元.")
      )
    )
(CMDLA1)
  (princ)
  )

alin

函数没给全

tc405003

已解决