[求助]：关于lisp函数问题

zw_zwzx

我的原意是想在绘图过程中，把所有的字体样式统一为txt1,hztxt，我所编写的程序如下，我是一名刚刚开始接触autolisp的菜鸟，有些东西还不是十分清楚，是抱着书一边查一边写的，费了老大劲。请各高手帮忙解决一下，不胜感激：
;;;将所有字体样式更换为txt1,hztxt
(defun c:stt()
       (setvar "cmdecho" 0)
       (setq n2 (tblnext "style" t))
       (sub)
       (setq n2 (tblnext "style"))
   while((= (cdr (assoc 0 n2)) "STYLE")
          (setq n2 (tblnext "style"))
          (sub)
        )
        (setvar "cmdecho" 1)
        (princ)

)

(defun sub()
    (setq n3 (cdr (assoc 3 n2)))
    (setq n4 (cdr (assoc 40 n2)))
    (setq n5 (cdr (assoc 41 n2)))
    (setq nn3 (cons 3 "txt1,hztxt"))
    (setq nn4 (cons 40 "0.0"))
    (setq nn5 (cons 41 "0.75"))
    (setq n2 (subst nn3 n3 n2))
    (setq n2 (subst nn4 n4 n2))
    (setq n2 (subst nn5 n5 n2))
    (entmod n2)
  )

我怎么弄都无法实现我的想法，不知问题出在什么地方了，我自己猜想可能是tblnext这个函数用的不正确，但我也不知道其它什么函数可以实现这个功能。还望各位高手不吝赐教。

ouyangsong

不是的，上次我也碰到一个如此的问题，在程序里作死了也更换不了文字的字体，我也看了半久，原来我那个是个仿宋体，属于大字体。是不是少了个文件呢，我没搞懂了，现在重装了CAD，再搞一下就好了，但是你当然不要重装CAD罗。

zw_zwzx

我的cad不缺字体，都有的，肯定是程序的问题。

xyp1964

2. [FONT=courier new];;;将所有字体样式更换为txt1,hztxt
   
3. (defun c:stt ()
   
4.   (setvar "cmdecho" 0)
   
5.   (command "-style" "HZDX" "txt1,hztxt" 300 0.7 0 "n" "n" "n")
   
6.   (setq        ss (ssget "x" '((0 . "*TEXT")))
   
7.         i  -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (sub_upd s1 7 "HZDX")
    
11.   )
    
12.   (princ)
    
13. )
    
14. (defun sub_upd (ename code newvalue)
    
15.   (entmod (subst (cons code newvalue)
    
16.                  (assoc code (entget ename))
    
17.                  (entget ename)
    
18.           )
    
19.   )
    
20.   (entupd ename)
    
21. )[/FONT]

[FONT=courier new];;;将所有字体样式更换为txt1,hztxt<br /> (defun c:stt ()<br />   (setvar "cmdecho" 0)<br />   (command "-style" "HZDX" "txt1,hztxt" 300 0.7 0 "n" "n" "n")<br />   (setq        ss (ssget "x" '((0 . "*TEXT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (sub_upd s1 7 "HZDX")<br />   )<br />   (princ)<br /> )<br /> (defun sub_upd (ename code newvalue)<br />   (entmod (subst (cons code newvalue)<br />                  (assoc code (entget ename))<br />                  (entget ename)<br />           )<br />   )<br />   (entupd ename)<br /> )[/FONT]

zw_zwzx

谢谢楼上的兄弟，我还没看明白呢，回去我好好研究研究！

fcd2002

上述程序为将所有文字改为新定义的字型HZDX

yuer0103

俺有一个采用修改所有字型为一个字型的程序，要不？？？

helison

最简单的方式就是在程式中用"command"调用AutoCAD的内部命令修改字体，同4楼的方法！！

zw_zwzx

七楼的兄弟，我很想要你说的那个程序呀，可以发到我的邮箱里吗？
zw_zwzx@163.com
先谢谢了

四楼的高手，我在执行你的程序时，出现错误提示：错误: 参数类型错误: lselsetp nil

当我分步执行时发现问题出在这步上：(ssget "x" '((0 . "*TEXT")))
这是怎么回事呀？还有我想问一下，"*text"中*是什么意思呢？