直接输入大字体的LSP

xxdxx001

每次打完字后都要用ST命令改成大打字，挺麻烦的， 求高手帮忙写个直接输入大字体的LSP，因为每次打字，前面三个字是固定不变的，后面跟着写的是编号，所以要求前面三个字固定在LSP里，只输入编号就行，比如我要打：“热处理 A20130729”,我只要输入A20130729

ZZXXQQ

(defun c:tt ()
(if (/= (setq txt (getstring "\n热处理=")) "")
  (command "_.TEXT" PAUSE "" "" (strcat "热处理" (strcase txt)))
)
(princ)
)