移位操作-进制转换

eachy

C++的移位操作
https://www.cnblogs.com/linkenpark/p/10935226.html
用 Autolisp 翻译如下：
转二进制

2. 
   
3. (defun tobin (n / l i str)
   
4.   (setq        i   0
   
5.         str ""
   
6.   )
   
7.   (while (< i 32)
   
8.     (setq l   (logand n (lsh 1 (- 31 i)))
   
9.           l   (lsh l (- i 31))
   
10.           str (strcat str
    
11.                       (if (zerop l)
    
12.                         "0"
    
13.                         "1"
    
14.                       )
    
15.               )
    
16.           i   (1+ i)
    
17.     )
    
18.   )
    
19.   str
    
20. )

<br /> (defun tobin (n / l i str)<br />   (setq        i   0<br />         str ""<br />   )<br />   (while (< i 32)<br />     (setq l   (logand n (lsh 1 (- 31 i)))<br />           l   (lsh l (- i 31))<br />           str (strcat str<br />                       (if (zerop l)<br />                         "0"<br />                         "1"<br />                       )<br />               )<br />           i   (1+ i)<br />     )<br />   )<br />   str<br /> )

十进制整数转十六进制

2. 
   
3. (defun tohex (n / str i l )
   
4.   (if (> n 65535)
   
5.     (setq str "0x"
   
6.           i   0
   
7.     )
   
8.     (setq str ""
   
9.           i   4
   
10.     )
    
11.   )
    
12.   (while (< i 8)
    
13.     (setq l   (lsh (lsh n (* 4 i)) -28)
    
14.           l   (if (>= l 0)
    
15.                 l
    
16.                 (+ l 16)
    
17.               )
    
18.           str (strcat str
    
19.                       (chr (if (< l 10)
    
20.                              (+ l 48)
    
21.                              (+ l 55)
    
22.                            )
    
23.                       )
    
24.               )
    
25.           i   (1+ i)
    
26.     )
    
27.   )
    
28.   str
    
29. )
    
30. 
    

<br /> (defun tohex (n / str i l )<br />   (if (> n 65535)<br />     (setq str "0x"<br />           i   0<br />     )<br />     (setq str ""<br />           i   4<br />     )<br />   )<br />   (while (< i 8)<br />     (setq l   (lsh (lsh n (* 4 i)) -28)<br />           l   (if (>= l 0)<br />                 l<br />                 (+ l 16)<br />               )<br />           str (strcat str<br />                       (chr (if (< l 10)<br />                              (+ l 48)<br />                              (+ l 55)<br />                            )<br />                       )<br />               )<br />           i   (1+ i)<br />     )<br />   )<br />   str<br /> )<br /> <br />

Autolisp 中的逻辑运算包括 logand logior lsh，其中

logand 等同于 C/C++ 中的  & (and 与)
logior 等同于 C /C++  中的  | (or 或)
lsh 就是 C/C++  中的 >> 和  << ，如果numbits为正，int将向左移动；如果numbits为负，int将向右移动。在这两种情况下，零位被移入，移出的位被丢弃。

tzfcn

这个好玩！加上功能选项就更强大了。