[求助]：关于logand等整数位布尔操作函数的疑问

gsy98106

我才学lisp不久，我想问一下关于logand等函数的计算机理是什么，书上写的很简单，举例如下：
（logand 7 15 3）   返回3
（logand 2 3 15）   返回2
（logand 8 3 4）    返回0
以上的几个式子怎么来的，搞的我一头雾水，另外请大家指点一下logior，~，boole这三个函数的用法。

aeo

logand
把两个数都变成二进制.
相同位上都是1就是1,不然0
再回到十进制.
2-->.....10
6-->....110
and->....10   -----> 2

logior
相同位上有1就是1,不然0
2-->.....10
4-->....100
or-->...110   -----> 6

boole
还有其他操作.比如xor等，都是比较相同位的.规则看帮助.

心梦相随

可以这样的看啊
你把所有的数字都拆为1和2系列的和，logand为最大的相同部分啊
如（logand  3 7）
3为（1 2）、7为（1 2 2 2），最大的相同部分为1+2=3
就是这样了

gsy98106

太感谢大家的支持了，迷惑了许久的问题，终于弄清了，另外对3楼楼主表示钦佩，想的真绝。

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; 我也一直搞不懂什么时候该用LOGAND,如以下程序
   
5. (defun ai_entity_locked (ename message)
   
6.   (if (= 4 (logand 4 (cdr (assoc 70
   
7.                             (tblsearch "layer" (cdr (assoc 8 (entget ename))))
   
8.                           ))))
   
9.     (progn
   
10.       (if (= 1 message)
    
11.         (princ "\n1 个对象位于锁定图层。")
    
12.       )
    
13.       T
    
14.     )
    
15.     nil
    
16.   )
    
17. )
    
18. ;;;改为如下,好象二者的结果一样,为何还要用LOGAND呢?
    
19. (defun ai_entity_locked (ename message)
    
20.   (if (= 4  (cdr (assoc 70
    
21.                             (tblsearch "layer" (cdr (assoc 8 (entget ename))))
    
22.                           )))
    
23.     (progn
    
24.       (if (= 1 message)
    
25.         (princ "\n1 个对象位于锁定图层。")
    
26.       )
    
27.       T
    
28.     )
    
29.     nil
    
30.   )
    
31. )
    
32.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 我也一直搞不懂什么时候该用LOGAND,如以下程序<br /> (defun ai_entity_locked (ename message)<br />   (if (= 4 (logand 4 (cdr (assoc 70 <br />                             (tblsearch "layer" (cdr (assoc 8 (entget ename))))<br />                           ))))<br />     (progn<br />       (if (= 1 message)<br />         (princ "\n1 个对象位于锁定图层。")<br />       )<br />       T<br />     )<br />     nil<br />   )<br /> )<br /> ;;;改为如下,好象二者的结果一样,为何还要用LOGAND呢?<br /> (defun ai_entity_locked (ename message)<br />   (if (= 4  (cdr (assoc 70 <br />                             (tblsearch "layer" (cdr (assoc 8 (entget ename))))<br />                           )))<br />     (progn<br />       (if (= 1 message)<br />         (princ "\n1 个对象位于锁定图层。")<br />       )<br />       T<br />     )<br />     nil<br />   )<br /> )<br />   [/FONT]<br />

aeo

你把这个层锁定，并off,后面的一段就不行了

Hossman

你把这个层锁定，并freeze，这时(cdr (assoc 70 ......))的值为5，后面一个程序判断出错