[求助]：帮改一下这段小程序

真龙天子

(setq a 1)
      (setq tt (getstring "要旋转吗？(y/n) <y>:"))
    (cond
      ((= tt "") (setq tt "y"))
      ((= tt "y") (princ "\n旋转") (setq a 0))
      ((= tt "n") (alert (strcat"稍后如果需要旋转请输入xz命令")))
    )
运行这段程序的结果是：
输入y；a=0
输入""；a=1
输入n；a=1
而我要的结果是：
输入y；a=0
输入""；a=0
输入n；a=1
也就是说不管输入y或者"",都要显示"旋转",并使a=0,输入n时不显示"旋转",并使a=1保持不变.
请哪位大侠帮改一下这段程序。

Underway

((= tt "") (setq a 0))

真龙天子

楼上的办法行不通,结果和原来一样,我的目的是不管输入y或者"",都要显示"旋转",并使a=0,输入n时不显示"旋转",并使a=1保持不变.

yshf

(cond
     ((or (= tt "") (= tt "y")) (princ "\n旋转") (setq a 0))
     ((= tt "n") (alert (strcat"稍后如果需要旋转请输入xz命令")))
)

狂刀

cond很容易的，你能写的出关系，就能写的出cond
自己再想想

eachy

getstring -> getkword

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (if (null tt)(setq tt "Y"))
    
16. (setq tt (UKWORD 1 "Y N" "要旋转吗?(y/n)" tt))
    
17. (cond  
    
18.   ((= tt "y") (princ "\n旋转") (setq a 0))
    
19.   ((= tt "n") (setq a 1)(alert (strcat "稍后如果需要旋转请输入xz命令")))
    
20. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (if (null tt)(setq tt "Y"))<br /> (setq tt (UKWORD 1 "Y N" "要旋转吗?(y/n)" tt))<br /> (cond  <br />   ((= tt "y") (princ "\n旋转") (setq a 0))<br />   ((= tt "n") (setq a 1)(alert (strcat "稍后如果需要旋转请输入xz命令")))<br /> )[/FONT]

真龙天子

其实是我不理解cond表的作用，经过昨晚的摸索终于搞清楚了它的功能，那就是不管cond表里有多少个子表，只有最前一个符合条件的子表起作用，只要把((= tt "") (setq tt "y"))放到cond表前就行了，符合要求的程序如下：

(setq a 1)
(setq tt (getstring "要旋转吗？(y/n) :"))
((= tt "") (setq tt "y"))
(cond
((= tt "y") (princ "\n旋转") (setq a 0))
((= tt "n") (alert (strcat"稍后如果需要旋转请输入xz命令")))
)

eachy

应该是检测到第一个为 T 的条件后退出 Cond

2. 
   
3. (setq a 1)
   
4. (setq tt (getstring "要旋转吗[Y/N]<Y>: "))
   
5. (cond
   
6.   ((or (= tt "") (= tt "y") (= tt "Y"))
   
7.    (princ "\n旋转")
   
8.    (setq a 0)
   
9.   )
   
10.   ((or (= tt "n")
    
11.        (= tt "N")
    
12.    )
    
13.    (alert (strcat "稍后如果需要旋转请输入xz命令"))
    
14.   )
    
15.   (t) ;_此处必须
    
16. )

<br /> (setq a 1)<br /> (setq tt (getstring "要旋转吗[Y/N]<Y>: "))<br /> (cond<br />   ((or (= tt "") (= tt "y") (= tt "Y"))<br />    (princ "\n旋转")<br />    (setq a 0)<br />   )<br />   ((or (= tt "n")<br />        (= tt "N")<br />    )<br />    (alert (strcat "稍后如果需要旋转请输入xz命令"))<br />   )<br />   (t) ;_此处必须<br /> )