文本修改

azjmjsj

如何将图中所有字高为4的文本（text和Mtext)一次性选择，做如下修改：字高改为5，图层变为08层，用lisp如何编程实现？

meflying

2. (defun c:test( / ss i ent ents)
3.   (setq ss (ssget "x" '((0 . "*TEXT") (40 . 4.0))))
4.   (setq i 0)
5.   (repeat (sslength ss)
6.     (setq ent (ssname ss i))
7.     (setq ents (entget ent))
8.     (setq ents (subst (cons 40 5.0) (assoc 40 ents) ents))
9.     (setq ents (subst (cons 8 "08") (assoc 8 ents) ents))
10.     (entmod ents)
11.     (setq i (1+ i))
12.   )
13.   (princ)
14. )

(defun c:test( / ss i ent ents)   (setq ss (ssget "x" '((0 . "*TEXT") (40 . 4.0))))   (setq i 0)   (repeat (sslength ss)     (setq ent (ssname ss i))     (setq ents (entget ent))     (setq ents (subst (cons 40 5.0) (assoc 40 ents) ents))     (setq ents (subst (cons 8 "08") (assoc 8 ents) ents))     (entmod ents)     (setq i (1+ i))   )   (princ) )

网络水手

8错!