怎么样才能保存上次输入的值呢??

dwt2601

(defun c:11 ()
(setvar "cmdecho" 0)
(while
(setq text (getstring "\n输入注记:"))
(setq pt (getpoint "\n选择点:"))
(command "text" pt "50" "" text "")
)
) 我想连续注记,怎么样才能保存上次输入的值呢...（我好象听说要用全局变量，，怎么用啊！！） 请高手指教。。。 帮我改一下程序最好了，谢谢了。。。。。。

LONGXIN

(defun c:11 (/ text text_ pt oldcmdecho)
(setq oldcmdecho
(getvar "cmdecho")
text_ ""
)
(setvar "cmdecho" 0)
(while (setq pt (getpoint "\选择点:"))
(setq text (getstring (strcat "\输入注记" text_ ">:")))
(if (= "" text)
(setq text text_)
)
(command "text" pt "50" "" text "")
(setq text_ text)
)
(setvar "cmdecho" oldcmdecho)
)

dwt2601

谢谢了，，，，，

LONGXIN

用全局变量是指退出程序后，当再次使用这个程序时还要用到上次输入的数据

YueFeng

推荐采用对象词典或注册表来解决这个问题。而不是采用全局变量。