请高手指教

丹霞岭

在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，能不能不重复输入，而是直接回车，再次打印出上次的结果。有没办法改进这个程序来实现上面的想法？

Andyhon

Ref:
http://www.google.com/search?lr= ... A%2F%2Fbbs.mjtd.com