[原创]：改着玩 egetint

zxmmelly

修改了getint函数，可以输入超出-32768 ~ 32767之间的整数，
使用时，msg可以为空，但不能省略。

2. 
   
3.   [FONT=courier new]
   
4. (defun egetint (msg / loop int)
   
5.   (setq loop t)
   
6.   (while loop
   
7.     (princ "\n")
   
8.     (setq int (getstring msg))
   
9.     (if        (= int "")
   
10.       (progn
    
11.         (setq int  nil
    
12.               loop nil
    
13.         )
    
14.       )
    
15.       (progn
    
16.         (if (= (type (read int)) (type 1))
    
17.           (progn
    
18.             (setq int  (read int)
    
19.                   loop nil
    
20.             )
    
21.           )
    
22.           (progn
    
23.             (princ "Requires an integer value.")
    
24.             (princ)
    
25.           )
    
26.         ) ;_end if
    
27.       )
    
28.     ) ;_end if
    
29.   ) ;_end while
    
30.   int
    
31. )
    
32. 
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun egetint (msg / loop int)<br />   (setq loop t)<br />   (while loop<br />     (princ "\n")<br />     (setq int (getstring msg))<br />     (if        (= int "")<br />       (progn<br />         (setq int  nil<br />               loop nil<br />         )<br />       )<br />       (progn<br />         (if (= (type (read int)) (type 1))<br />           (progn<br />             (setq int  (read int)<br />                   loop nil<br />             )<br />           )<br />           (progn<br />             (princ "Requires an integer value.")<br />             (princ)<br />           )<br />         ) ;_end if<br />       )<br />     ) ;_end if<br />   ) ;_end while<br />   int<br /> )<br /> <br />   [/FONT]<br />

WHGF

纯LISP，将字符串型式的数字转换成整型数，修改一下是否可以转换成浮点数（实型数）?

zqw_zhang

请问2楼兄弟，何为实型数？？整型数？？小弟正在学习中。

cy956

给你一个abd的老函数：

2. 
   
3. (defun pri1 (a #p0 b c / x)
   
4.   (princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))
   
5.   (if (and x (/= x "")) x c)
   
6. )
   
7. 
   
8. (defun pri (a b c / x)
   
9.   (princ (strcat b " <"))(princ c)(setq x (a ">:"))
   
10.   (if (and x (/= x "")) x c)
    
11. )
    
12. 
    
13. 你可以试试
    
14. (setq in(pri getint  "\n试试" 1)
    
15.          re(pri getreal  "\n试试" 1.00)
    
16.          di(pri getdist "\n试试" 1.00)
    
17.          p0(pri getpoint  "\n试试" '(0 0))
    
18.          a0(pri getangle "\n试试" 0))
    
19. 。。。。
    
20.   pri函数可以针对几种赋值方式提供缺省。
    
21.   pri1针对getdist，getpoint，getangle等增加起始点。
    
22. 这是从老abd中来的，pri1是我改的，因为通用，
    
23. 觉得比其他的写得简单，所以一直用下来了。
    

<br /> (defun pri1 (a #p0 b c / x)<br />   (princ (strcat b " <"))(princ c)(setq x (a #p0 ">:"))<br />   (if (and x (/= x "")) x c)<br /> )<br /> <br /> (defun pri (a b c / x)<br />   (princ (strcat b " <"))(princ c)(setq x (a ">:"))<br />   (if (and x (/= x "")) x c) <br /> )<br /> <br /> 你可以试试<br /> (setq in(pri getint  "\n试试" 1)<br />          re(pri getreal  "\n试试" 1.00)<br />          di(pri getdist "\n试试" 1.00)<br />          p0(pri getpoint  "\n试试" '(0 0))<br />          a0(pri getangle "\n试试" 0))<br /> 。。。。<br />   pri函数可以针对几种赋值方式提供缺省。<br />   pri1针对getdist，getpoint，getangle等增加起始点。<br /> 这是从老abd中来的，pri1是我改的，因为通用，<br /> 觉得比其他的写得简单，所以一直用下来了。<br />

841594

楼上好程序！

狂刀

顶一下４楼，顺便测试１楼：
命令: 'VLIDE
输入整数498419646516566
Requires an integer value.
输入整数52156215

输入整数8948949489489489484989849
Requires an integer value.
输入整数45646156156
Requires an integer value.
输入整数5621562
看来数字太大也不行啊。

(read(getstring))
(distof (getstring) 2)　浮点的
就这样不行么？？？？