对话框问题 调用错误

听歌睡觉

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

代码:

  
(defun getdata()
  (setq a (atof (get_tile "a")))
  )

(defun c:colll ()
  (setvar "cmdecho" 1)
  (setq id (load_dialog "colll"))
 
  (new_dialog "colll" id)
(set_tile "a" (rtos a 2 2))
  (start_dialog)
  
  (action_tile "accept" "(getdata)(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")


  (command "pline" (list 0 0)  (list a 0))
  
)

  

下边是dcl文件

代码:

  
colll:dialog{
        label="旋风分离器参数设置";
           :column {
                 :edit_box{label="长度=";
                            key="a";
                          }
                          
                    }
        ok_cancel;
           }   
  

龙龙仔

a=?

听歌睡觉

我想a可以通过对话框取得


我市第一次便对话框


是照教程作的


可能有很多低级错误


希望各位指点

ljpnb

另外一个贴子的内容怎么跟这儿一样，是不是同一样人啊。我已经回复了

听歌睡觉

再次感谢 是同一个人 赫赫 ljpnb编的正确代码 可能还有像我一样的菜鸟吧 赫赫 (defun getdata()
(setq a (atof (get_tile "a")))
)
(defun c:colll ()
(setvar "cmdecho" 1)
(setq id (load_dialog "COLLL.dcl"))
(new_dialog "colll" id)
(set_tile "a" "1.0")
(action_tile "accept" "(getdata)(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(GETDATA)
(start_dialog)
(UNLOAD_DIALOG ID)
(command "pline" (list 0 0) (list a 0) "")
)