求问：重复上一次输入的方法

雨的节奏

我用某些工具，这一次输入的值或者关键字
第二字重复这个命令的时候只要按回车就会自动重复上一次的值，不用再次输入
请问要如何做啊



该贴已经同步到 雨的节奏的微博

雨的节奏

已经知道如何写，谢谢

kzd2004

雨的节奏 发表于 2012-5-26 16:22
已经知道如何写，谢谢

请问怎样重复上一次输入的方法？能分享给我吗？在lisp要怎样加入代码？谢谢！

小毛草

参考

2. (defun c:bv (/ bili2)
   
3. (setvar "cmdecho" 0)
   
4. (command "mview" "l" "off" "all" "")
   
5. (if (not bili) (setq bili (getstring "\n请输入比例:")) (setq bili (if (/= "" (setq bili2 (getstring (strcat "\n请输入比例<" bili ">:")))) bili2 bili)))
   
6. (command "zoom" (strcat "1/" bili "xp"))
   
7. (command "mview" "l" "on" "all" "")
   
8. (princ)        
   
9. )
   
10. 
    
11. 
    
12. ;;我一般带记忆功能这样实现的,代码比较容易懂,其中 scalebak 为全局变量
    
13. (if (null scalebak)  (setq scalebak 100.0))
    
14. (if (setq s (getreal (strcat "\n比例值<" (rtos scalebak 2 2) ">:")))
    
15.   (setq scalebak s)
    
16. )

(defun c:bv (/ bili2)<br /> (setvar "cmdecho" 0)<br /> (command "mview" "l" "off" "all" "")<br /> (if (not bili) (setq bili (getstring "\n请输入比例:")) (setq bili (if (/= "" (setq bili2 (getstring (strcat "\n请输入比例<" bili ">:")))) bili2 bili)))<br /> (command "zoom" (strcat "1/" bili "xp"))<br /> (command "mview" "l" "on" "all" "")<br /> (princ)        <br /> )<br /> <br /> <br /> ;;我一般带记忆功能这样实现的,代码比较容易懂,其中 scalebak 为全局变量<br /> (if (null scalebak)  (setq scalebak 100.0))<br /> (if (setq s (getreal (strcat "\n比例值<" (rtos scalebak 2 2) ">:")))<br />   (setq scalebak s)<br /> )

雨的节奏

这几十年的贴子都被翻出来 了。。。。。。。。。

大角牛

学习学习学习学习学习