请高手指教
本帖最后由 丹霞岭 于 2013-1-15 17:08 编辑在CAD中加载如下程序
(defun c:gg()
(setq p1(getpoint "选择位置：")
s(getstring "请输入数字:")
s1(strcat "T" s)
)
(command "_.text" "j" "BR" p1 0.8 0 s1)
(princ)
)
后，在命令行输入gg运行，出现”请输入数字：“，这时例如输入1000，回车，屏幕上将打印出”T1000“，
之后第二次运行这个程序（即gg），当出现”请输入数字时：“如果这次想输入的和前一次一样，即1000，能不能不重复输入，而是直接回车，再次打印出上次的结果。有没办法改进这个程序来实现上面的想法？
Ref:
http://www.google.com/search?lr=&tbo=d&as_qdr=all&q=setq+%22%E8%AE%B0%E5%BF%86%22+site%3Ahttp%3A%2F%2Fbbs.mjtd.com
页:
[1]