xhpei1 发表于 2004-9-17 14:27:00

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

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

meflying 发表于 2004-9-17 15:03:00

(defun ModTxt(blkname h / ent blkname ents)<BR>       (setq ent (tblobjname "block" blkname))<BR>       (while (setq ent (entnext ent))<BR>                       (setq ents (entget ent))<BR>                       (if (= (cdr (assoc 0 ents)) "MTEXT")<BR>                                       (progn<BR>        (setq ents (subst (cons 40 h) (assoc 40 ents) ents))<BR>        (entmod ents)<BR>                                       )<BR>                       )<BR>       )<BR>       (command "_.regen")<BR>)
页: [1]
查看完整版本: 高手赐教：“块”编程问题