求一个直接输入大字体程序
每次打完字后都要用ST命令改成大打字，挺麻烦的， 求一个直接输入大字体的LSP，因为每次打字，前面三个字是固定不变的，后面跟着写的是编号，所以要求前面三个字固定在LSP里，只输入编号就行，比如我要打：“热处理 A20130729”,只要输入A20130729 就可以了，字体就选CAD自带的gbcbig.shx，字高为8MM (defun c:tt ()(setvar "CMDECHO" 0)
(command "-STYLE" "HZ" "ROMANS,GBCBIG" "" "0.7" "" "" "" "")
(while (/= (setq txt (getstring "热处理=")) "")
(command "TEXT" PAUSE 8 0 (strcat "热处理 " txt))
)
(setvar "CMDECHO" 1)
(princ)
)
感谢大佬分享
页:
[1]