字符串yse no循环取值，如何写才正确

zzl9105

我试过if ,while都不行，请高手指点一下（字符串变量为YON）（这些句子已在循环语句中）

                                 (IF (= YON "YSE") (setq YON "NO"))
                                 (IF (= YON "NO") (setq YON "YSE"))

                                 (while (= YON "YSE") (setq YON "NO"))
                                 (while (= YON "NO") (setq YON "YSE"))

应该用哪个基础函数呀，或者上面的写法要变一下，达到的效果为：yes no yes no yes no..........
谢谢


再用个or把上面的语句括起来么？

ghgh0130

(cadr (assoc you '(("yes" "no")("no" "yes"))))

669423907

(IF (= YON "NO") (setq YON "YSE") (setq YON "NO"))

lijiao

(setq yon (cadr (member yon '("YES" "NO" "YES"))))

669423907

你这样试试：
(defun c:13()
(IF (= YON "NO") (setq YON "YSE") (setq YON "NO"))
(alert YON)
)

zzl9105

669423907 发表于 2018-5-23 09:31
你这样试试：
(defun c:13()
(IF (= YON "NO") (setq YON "YSE") (setq YON "NO"))

顺便问下关于子函数的问题：子函数返回值，是用alert 来返回的么，刚开始接触子函数，不知道它的返回原则，或者主、子函数的写法要求。

669423907

直接用啊直接用啊

被承包的东子

用COND 函数？你试试看 是不是 你要的意思

yxp

试试看，默认是 No，也改为默认是 Yes

1. (defun test()
   
2. (setq n 0)
   
3. (while
   
4.         (progn
   
5.                 (initget "Yes No ")
   
6.                 (setq YON (getpoint "\n您是否继续循环[是(Yes)/<否(No)>]:"))
   
7.                 (or YON (setq YON "No"))
   
8.                 (cond
   
9.                         ((= YON "Yes")
   
10.                                 (princ "\n您选择了继续...")
    
11.                                 (princ (setq n (1+ n)))
    
12.                                 (princ)
    
13.                                 t
    
14.                         )
    
15.                         ((= YON "No")
    
16.                                 (princ "\n您选择了结束.")
    
17.                                 (princ)
    
18.                                 nil
    
19.                         )
    
20.                         (t
    
21.                                 (princ "\n当前输入不合法，请重新输入")
    
22.                                 t
    
23.                         )
    
24.                 )
    
25.         )
    
26. )
    
27. )

(defun test()<br /> (setq n 0)<br /> (while<br />         (progn<br />                 (initget "Yes No ")<br />                 (setq YON (getpoint "\n您是否继续循环[是(Yes)/<否(No)>]:"))<br />                 (or YON (setq YON "No"))<br />                 (cond<br />                         ((= YON "Yes") <br />                                 (princ "\n您选择了继续...")<br />                                 (princ (setq n (1+ n)))<br />                                 (princ)<br />                                 t<br />                         )<br />                         ((= YON "No")<br />                                 (princ "\n您选择了结束.")<br />                                 (princ)<br />                                 nil<br />                         )<br />                         (t <br />                                 (princ "\n当前输入不合法，请重新输入")<br />                                 t<br />                         )<br />                 )<br />         )<br /> )<br /> )

xyp1964

1. (setq a (IF (= a "YES") "NO" "YES"))

(setq a (IF (= a "YES") "NO" "YES"))