重新理解or--而今迈步从头越

自贡黄明儒

;;;重新理解or--而今迈步从头越
;;1 例
(or msg (setq msg "1"));返回T。
;;类似于(if msg nil (setq msg "1")),返回结果

;;2 例
(or msg (equal msg "1") (setq my ""));返回T。
;;类似于cond(返回不同)
(cond (msg t)
      ((equal msg "1") t)
      (t (setq my ""))
)

;;3另外看了caoyin的ENTSEL1.lsp,确实相当好的教材,难得！
;;其中有一句
(setq SS (ssadd (car E) (ssadd)))
;;而我们的通常写法是
(setq ss (ssadd))
(ssadd (car E) ss)
;;相比原来在拜年贴上发表的，又向前迈了一大步，

ZZXXQQ

初学者还是老老实实的写，不然会把自己玩晕。

【KAIXIN】

不错，

highflybird

or 和and 函数 都是这样

(or   表达式或者值1 表达式或者值2 表达式或者值3...)
只要遇到的一个表达式或者值成立 ，即为 T ，后面的就不会再执行
下面的两个例子，在or 或者and 之前，假设 a和b都未赋值。
例如

1. 
   
2. (or nil (setq a 3) (setq b 4))

<br /> (or nil (setq a 3) (setq b 4))

你会发现， a的值是3, 但(setq b 4)的那句并未执行。所以b还是nil.

而and的意思是.

(and  表达式或者值1 表达式或者值2 表达式或者值3...)
只要遇到的一个表达式或者值不成立 ，即为nil，后面的就不会再执行

例如

1. 
   
2. (and T (setq a nil) (setq b 4))

<br /> (and T (setq a nil) (setq b 4))

and返回后，a的值是nil,但b的值也是nil,后面的那句(setq b 4)并没有执行.