高手赐教：“块”编程问题

xhpei1

如何改变“块”中所有文字的高度

meflying

(defun ModTxt(blkname h / ent blkname ents)
(setq ent (tblobjname "block" blkname))
(while (setq ent (entnext ent))
(setq ents (entget ent))
(if (= (cdr (assoc 0 ents)) "MTEXT")
(progn
(setq ents (subst (cons 40 h) (assoc 40 ents) ents))
(entmod ents)
)
)
)
(command "_.regen")
)