还要什么程序哦。。。。。简单的很，只要有样品文字或者样式，你就按MA就行了，希望能帮到你，
编了一个lisp输入命令ZB再选择文字(defun c:ZB() (setq ss (ssget))(command "change" "p" "" "p" "c" "red" "")(command "scaletext" "p" "" "e" "100"))接下来的你自己弄吧
完全可以使用cad基础命令完成。
