[求助]：获得缺省值的最佳语句

David Li

我刚学Lisp
请教获得缺省值的最佳语句（回车或右键）
中途中断程序（如按Esc）怎样恢复系统变量

陌生人

1。缺省值的最佳语句（回车或右键）
   (command ...)或(vl-cmdf...)中用 “” 响应
2. 中途中断程序（如按Esc）
   中断程序中命令用 (command) , 或 (command .... ^c). 直接退出程序用(quit) (exit)
3. 恢复变量：举例
  (setq os (getvar "osmode")) ;存储
    ..... 程序段
    (setvar "osmode" os) ;恢复

e2002

使用getXXXXX类函数时,你可以这样设置缺省值:

[code]
...
(initget "Keywords")
(setq input (getXXXXX "\nYour messege for input [Keywords] <Default value>:)
(if (null input) (setq input XXXXX))
...

cy956

能用都是好的。下面的函数来自abd

2. 
   
3. (defun pri (a b c / x)
   
4.   (princ (strcat b " <"))(princ c)(setq x (a ">:"))
   
5.   (if (and x (/= x "")) x c)
   
6. )
   
7. 
   
8. 如：
   
9. (pri getdist "\n距离" 123.123)
   
10. (pri getint "\n距离" 123)
    
11. (pri getreal "\n距离" 123.123)
    
12. (pri getangle"\n角度" 123.123)
    
13. 
    
14. 再改为下面函数，就可以加上相对起点。
    
15. (defun pri1 (a #p0 b c / x)
    
16.   (princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))
    
17.   (if (and x (/= x "")) x c)
    
18. )
    
19. 
    
20. 如：
    
21. (setq p0'(0 0 0))
    
22. (pri1 getdist p0 "\n距离" 123.123)
    
23. 
    
24. 
    
25. 
    

<br /> (defun pri (a b c / x)<br />   (princ (strcat b " <"))(princ c)(setq x (a ">:"))<br />   (if (and x (/= x "")) x c) <br /> )<br /> <br /> 如：<br /> (pri getdist "\n距离" 123.123)<br /> (pri getint "\n距离" 123)<br /> (pri getreal "\n距离" 123.123)<br /> (pri getangle"\n角度" 123.123)<br /> <br /> 再改为下面函数，就可以加上相对起点。<br /> (defun pri1 (a #p0 b c / x)<br />   (princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))<br />   (if (and x (/= x "")) x c)<br /> )<br /> <br /> 如：<br /> (setq p0'(0 0 0))<br /> (pri1 getdist p0 "\n距离" 123.123)<br /> <br /> <br /> <br />

David Li

谢谢
我是说按Esc退出正在运行的Lisp程序时,我在程序一开始改的系统变量怎样恢复?

eachy

最初由 David Li 发布
[B]谢谢
我是说按Esc退出正在运行的Lisp程序时,我在程序一开始改的系统变量怎样恢复? [/B]

http://www.xdcad.net/forum/showthread.php?threadid=57831

陌生人

(setq oerr *error*)

(defun *error* (msg) ......(setq *error* oerr))