帮我看一下编程错在哪里？

ryj_cad

(defun c:ghzt ()
  (setq oldoce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (graphscr)
  (setq yz (entget (car (entsel "\n请选取要更换的字体："))))
  (setq yzt (assoc 7 yz))
  (setq a1 (getpoint "\n框选角点1:"))
  (setq a2 (getcorner a1 "\n角点2:"))
  (setq yzzs (ssget "w" a1 a2 '((0."text") yzt)))
  (setq tjzs (sslength yzzs))
  (setq i 0)
  (while (< i tjzs)
    (setq xzt1 (getstring "\请输入新字体："))
    (setq xzt (cons 7 xzt1))
    (setq lz (entget (ssname yzzs i)))
    (setq lz (subst xzt yzt lz))
    (entmod lz)
    (setq i (+ 1 i))
   )
  (setvar "cmdecho" oldoce)
   (princ)
  )
运行的时候总提示参数不正确，望各位大侠指教一下。
编程内容：将框选范围内所有同种字体样式的文字全部更换为用户输入的字体样式。

Aixer

(setq yzzs (ssget "w" a1 a2 '((0."text") yzt)))
改成
(setq yzzs (ssget "w" a1 a2 (list (cons 0 "text") yzt)))

ryj_cad

果然是高手，真是太感谢了，每次编程都感觉有一想不到的收获~

cdjtsf

我昨天也是这样(list' (0 . "LWPOLYLINE")(cons 10 (dxf 10 ent1)) (8 . "PUB_TITLE") (90 . 4))不通过后多次试验改成
(list' (0 . "LWPOLYLINE")(cons 10 (dxf 10 ent1)) (cons 8 "PUB_TITLE") (cons 90 4))
(setq xzj1 (list' (0 . "LWPOLYLINE")(cons 10 (dxf 10 ent1)) (cons 8 "PUB_TITLE") (cons 90 4))
          ent1 (ssname (ssget "X" xzj1) 0))
通过了

ryj_cad

这个问题确实是初学者很容易犯哦～
因为在书中没有明确指出这一点，就不知道错在哪里了，以后会注意了～
希望大家多把疑点提出来啊～
一起学习，一起进步～

ljpnb

象这一句(setq yzzs (ssget "w" a1 a2 '((0."text") yzt)))中的(0."text") 的格式不对，应该写成
(0空格.空格"text")就可以了，不一定要写成2楼的格式。

ryj_cad

最初由 ljpnb 发布
[B]象这一句(setq yzzs (ssget "w" a1 a2 '((0."text") yzt)))中的(0."text") 的格式不对，应该写成
(0空格.空格"text")就可以了，不一定要写成2楼的格式。 [/B]

对，还有一种写法：(setq yzzs (ssget "w" a1 a2 (list '(0 . "text") yzt)))
（0.“text”）前面必须加一个’或quote。谢谢ljpnb的指教。