if-wcmatch查找指定文字查找并改变其所在图层

神秘将军

(defun c:GY1()
  (command"layer" "m" "errc" "c" "4" "errC" "")
  (command "style" "hztxt" "hztxt.shx" "0" "1" "0" "n" "n" "n")
  (SETQ GY(GETSTRING "ÇëÊäÈëÒª²éÕÒµÄÄÚÈÝ£º"))
  (SETQ SS(SSGET "X" '((8 . "JCERR")(0 . "text"))))
  (SETQ i(SSLENGTH SS) M 0)
  (while (< m (- i 1))
    (if (wcmatch css(strcat "*" GY "*"))
      (progn
       (SETQ SS1 (SSNAME SS m))
       (SETQ SS2 (ENTGET SS1 '("*")))
       (setq css(cdr (assoc 1 ss2)))
       (setq sS2 (subst (cons 8 "errC") (assoc 8 sS2) sS2) p1 (cdr (assoc 10 SS2)) p1y (car p1) p1x (cadr p1) p1 (list p1y p1x))
       (command "circle" P1 "10" )
       (entmod ss2)
      )
    )
  (SETQ M(+ 1 M))
  )
)
这样老是提示错误，那位大虾帮忙测试一下。感激不尽

st788796

神秘将军 发表于 2013-12-27 00:30
那段乱码是提示输入的文字，可忽略

1 wcmatch 可以直接在ssget完成，后面不用判断
2 在 1 的基础上，只接对选择集修改图层
3 为了程序"健壮"，if 判断 gy 和 选集

神秘将军

那段乱码是提示输入的文字，可忽略

神秘将军

st788796 发表于 2013-12-27 07:22
1 wcmatch 可以直接在ssget完成，后面不用判断
2 在 1 的基础上，只接对选择集修改图层
3 为了程序"健 ...

谢谢。问题已成功解决。在此感谢eachy的不厌弃烦的教导。
另外附上改后的程序；
(defun c:GY1()
  (command"layer" "m" "errc" "c" "4" "errC" "")
  (command "style" "hztxt" "hztxt.shx" "0" "1" "0" "n" "n" "n")
  (SETQ GY(GETSTRING "Please input key word:"))
  (SETQ SS(SSGET "X" (list '(8 . "JCERR") '(0 . "text") (cons 1 (strcat "*" GY "*")))))
  (SETQ I(SSLENGTH SS) M 0)
  (repeat i
   (SETQ SS1 (SSNAME SS m))
   (SETQ SS2 (ENTGET SS1 '("*")))
    (setq sS2 (subst (cons 8 "errC") (assoc 8 sS2) sS2) p1 (cdr (assoc 10 SS2)) p1y (car p1) p1x (cadr p1) p1 (list p1y p1x))
    (command "circle" P1 "10" )
    (entmod ss2)
    (SETQ M(+ 1 M))
   )
)