本帖最后由 vbyu1987 于 2011-11-22 20:47 编辑

(defun c:gzg(/ h e e1)
        (setq h(getdist "\n输入文本新的字高:"))
        (setq e (entnext))                       ;得到第一个图元的名字
        (while e
                (setq e1 (entget e))        
                (if (= "TEXT" (cdr (assoc o e1)))
                        (progn
                                (setq e1 (subst (cons 40 h) (assoc 40 e1) e1))
                                (if (= 3 (cdr (assoc 72 e1)))
                                        (setq e1 (subst (cons 72 0) (assoc 72 e1) e1))
                                )
                                (entmod e1)
                        )
                )
                (setq e (entnext e))
        )
)

这是按照一本lisp教材上做的程序，检查了好几遍也没有错误，但是就是没有效果



网友答: (assoc o e1)
先试==>
(assoc 0 e1)

网友答:
非常感谢，，，唉。。。

网友答: (defun c:gzg(/ h e e1)
        (setq h(getdist "\n输入文本新的字高:"))
        (setq e (entnext))                       ;得到第一个图元的名字
        (while e
                (setq e1 (entget e))        
                (if (= "TEXT" (cdr (assoc 0 e1)))
                        (progn
                                (setq e1 (subst (cons 40 h) (assoc 40 e1) e1))
                                (if (= 3 (cdr (assoc 72 e1)))
                                        (setq e1 (subst (cons 72 0) (assoc 72 e1) e1))
                                )
                                (entmod e1)
                        )
                )
                (if (= "MTEXT" (cdr (assoc 0 e1)))
                        (progn
                                (setq e1 (subst (cons 40 h) (assoc 40 e1) e1))
                                (if (= 3 (cdr (assoc 72 e1)))
                                        (setq e1 (subst (cons 72 0) (assoc 72 e1) e1))
                                )
                                (entmod e1)
                        )
                )
                (setq e (entnext e))
        )
)

将程序改了下，现在可以实现对单行文字和多行文字全部自动改高度了

网友答: 要是加上预设字高更好，要不每次都输入