求一个直接输入大字体程序

xxdxx001

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

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (command "-STYLE" "HZ" "ROMANS,GBCBIG" "" "0.7" "" "" "" "")
   
5. (while (/= (setq txt (getstring "热处理=")) "")
   
6.   (command "TEXT" PAUSE 8 0 (strcat "热处理 " txt))
   
7. )
   
8. (setvar "CMDECHO" 1)
   
9. (princ)
   
10. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (command "-STYLE" "HZ" "ROMANS,GBCBIG" "" "0.7" "" "" "" "")<br /> (while (/= (setq txt (getstring "热处理=")) "")<br />   (command "TEXT" PAUSE 8 0 (strcat "热处理 " txt))<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

magicheno

感谢大佬分享