[LISP程序]：怎么控制对话框输入的内容为数字？

Gis

如题，就是说对话框里得到输入的数字之后进行判断是否都是数字和小数点，不是的话给出警告窗口。好像在对话框设计的时候可以控制的，高手指教

YueFeng

2. 
   
3.   [FONT=courier new]
   
4. (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")
   
5.   [/FONT]
   

<br />   [FONT=courier new]<br /> (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")<br />   [/FONT]<br />

这个代码没有给出警告框，直接清除原有数据并置此控件的焦点。

eachy

2. 
   
3. (defun $DCL_Rs_Error ()
   
4.   (set_tile "error" "")
   
5. )
   
6. (defun $DCL_do_set_error (val)
   
7.   ($DCL_Rs_Error)
   
8.   (set_tile "error" val)
   
9. )
   
10. ;;检查输入格式
    
11. (defun $DCL_CheckIn (input format kk /)
    
12.   (if (and (distof input 2) (> (atof input) 0));_大于等于 0
    
13.     (progn ($DCL_Rs_Error) input)
    
14.     (progn
    
15.       ($DCL_do_set_error (strcat "无效的" format "输入"))
    
16.       (mode_tile kk 2)
    
17.       nil
    
18.     )
    
19.   )
    
20. )
    

<br /> (defun $DCL_Rs_Error ()<br />   (set_tile "error" "")<br /> )<br /> (defun $DCL_do_set_error (val)<br />   ($DCL_Rs_Error)<br />   (set_tile "error" val)<br /> )<br /> ;;检查输入格式<br /> (defun $DCL_CheckIn (input format kk /)<br />   (if (and (distof input 2) (> (atof input) 0));_大于等于 0<br />     (progn ($DCL_Rs_Error) input)<br />     (progn<br />       ($DCL_do_set_error (strcat "无效的" format "输入"))<br />       (mode_tile kk 2)<br />       nil<br />     )<br />   )<br /> )<br />

Gis

最初由 YueFeng 发布
[B]

2. 
   
3.   [FONT=courier new]
   
4. (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")
   
5.   [/FONT]
   

<br />   [FONT=courier new]<br /> (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")<br />   [/FONT]<br />

这个代码没有给出警告框，直接清除原有数据并置?.. [/B]

谢谢版主
用numberp函数可以测试输入的数据是不是实型数或者整型数。
不过我的问题是这样的，就是说我在dcl对话框中获取了数据（如果吧这个数据放到变量里面，那么肯定是以字符串的形式进入），测试输入的内容（字符串）是不是只有数字和小数点。比方说变量是："1.0",那么numberp函数的结果是nil，而我需要的结果是T。

在此感谢版主


貌似distof函数是正解

谢谢楼上

YueFeng

最初由 Gis 发布
[B][QUOTE]最初由 YueFeng 发布
[B]

2. 
   
3.   [FONT=courier new]
   
4. (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")
   
5.   [/FONT]
   

<br />   [FONT=courier new]<br /> (action_tile "B1" "(If (not (numberp (read $Value)))(progn (set_tile "B1" "")(mode_tile "B1" 2)))")<br />   [/FONT]<br />

这个代?.. [/B]

(read $Value)这个程序将字符串转化为数字或符号表或其它。

eachy

注意 read 不能用于 . 开头，如  (read ".54")

YueFeng

最初由 eachy 发布
[B]注意 read 不能用于 . 开头，如  (read ".54") [/B]

谢谢eachy,指出Read在处理这类数据方面的漏洞。