社区 › AutoLISP/Visual LISP 编程技术 › 直接输入大字体的LSP

xxdxx001 发表于 2013-7-29 17:55:24

直接输入大字体的LSP

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

ZZXXQQ 发表于 2013-7-29 23:36:14

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

查看完整版本: 直接输入大字体的LSP