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

xxdxx001 · 发表于 2013-8-3 12:55:00

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

ZZXXQQ · 发表于 2013-8-3 21:49:00

copy


(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)
)

magicheno · 发表于 2022-7-16 14:17:00

感谢大佬分享

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

发表回复

精选推荐