求问：重复上一次输入的方法
我用某些工具，这一次输入的值或者关键字第二字重复这个命令的时候只要按回车就会自动重复上一次的值，不用再次输入
请问要如何做啊
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 雨的节奏的微博 已经知道如何写，谢谢 雨的节奏 发表于 2012-5-26 16:22
已经知道如何写，谢谢
请问怎样重复上一次输入的方法？能分享给我吗？在lisp要怎样加入代码？谢谢！ 参考(defun c:bv (/ bili2)
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(if (not bili) (setq bili (getstring "\n请输入比例:")) (setq bili (if (/= "" (setq bili2 (getstring (strcat "\n请输入比例<" bili ">:")))) bili2 bili)))
(command "zoom" (strcat "1/" bili "xp"))
(command "mview" "l" "on" "all" "")
(princ)
)
;;我一般带记忆功能这样实现的,代码比较容易懂,其中 scalebak 为全局变量
(if (null scalebak)(setq scalebak 100.0))
(if (setq s (getreal (strcat "\n比例值<" (rtos scalebak 2 2) ">:")))
(setq scalebak s)
) 这几十年的贴子都被翻出来 了。。。。。。。。。 学习学习学习学习学习
页:
[1]