[求助]：对话框问题调用不出

听歌睡觉

本人刚学LISP
但是对话框始终调用不出来
下边是我写的简单代码
各位看看是哪里调用的不对
谢谢大家了
下边是LSP文件

2. 
   
3.   [FONT=courier new]
   
4. (defun getdata()
   
5.   (setq a (atof (get_tile "a")))
   
6.   )
   
7. 
   
8. (defun c:colll ()
   
9.   (setvar "cmdecho" 1)
   
10.   (setq id (load_dialog "colll"))
    
11. 
    
12.   (new_dialog "colll" id)
    
13. (set_tile "a" (rtos a 2 2))
    
14.   (start_dialog)
    
15.   
    
16.   (action_tile "accept" "(getdata)(done_dialog 1)")
    
17.   (action_tile "cancel" "(done_dialog 0)")
    
18. 
    
19. 
    
20.   (command "pline" (list 0 0)  (list a 0))
    
21.   
    
22. )
    
23. 
    
24.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun getdata()<br />   (setq a (atof (get_tile "a")))<br />   )<br /> <br /> (defun c:colll ()<br />   (setvar "cmdecho" 1)<br />   (setq id (load_dialog "colll"))<br /> <br />   (new_dialog "colll" id)<br /> (set_tile "a" (rtos a 2 2))<br />   (start_dialog)<br />   <br />   (action_tile "accept" "(getdata)(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br /> <br /> <br />   (command "pline" (list 0 0)  (list a 0))<br />   <br /> )<br /> <br />   [/FONT]<br />

下边是dcl文件

2. 
   
3.   [FONT=courier new]
   
4. colll:dialog{
   
5.         label="旋风分离器参数设置";
   
6.            :column {
   
7.                  :edit_box{label="长度=";
   
8.                             key="a";
   
9.                           }
   
10.                           
    
11.                     }
    
12.         ok_cancel;
    
13.            }   
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> colll:dialog{<br />         label="旋风分离器参数设置";<br />            :column {<br />                  :edit_box{label="长度=";<br />                             key="a";<br />                           }<br />                           <br />                     }<br />         ok_cancel;<br />            }   <br />   [/FONT]<br />

ljpnb

修改如下：

2. 
   
3. (defun getdata()
   
4.   (setq a (atof (get_tile "a")))
   
5.   A
   
6.   )
   
7. 
   
8. 
   
9. (defun c:colll ()
   
10.   (setvar "cmdecho" 1)
    
11.   (setq id (load_dialog "COLLL.dcl"))
    
12.   (new_dialog "colll" id)
    
13.   (set_tile "a" "1.0")
    
14.   (action_tile "accept" "(getdata)(done_dialog 1)")
    
15.   (action_tile "cancel" "(done_dialog 0)")
    
16.   (GETDATA)
    
17.   (start_dialog)
    
18.   (UNLOAD_DIALOG ID)
    
19.   (command "pline" (list 0 0) (list a 0) "")
    
20. )
    

<br /> (defun getdata()<br />   (setq a (atof (get_tile "a")))<br />   A<br />   )<br /> <br /> <br /> (defun c:colll ()<br />   (setvar "cmdecho" 1)<br />   (setq id (load_dialog "COLLL.dcl"))<br />   (new_dialog "colll" id)<br />   (set_tile "a" "1.0")<br />   (action_tile "accept" "(getdata)(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (GETDATA)<br />   (start_dialog)<br />   (UNLOAD_DIALOG ID)<br />   (command "pline" (list 0 0) (list a 0) "")<br /> )<br />

听歌睡觉

谢谢了
我编了一上午的程序调不出来郁闷了
我现在就试下

谢谢ljpnb大哥
问题已经解决
哈哈