帮忙看一下这个程序错在哪里？谢谢！

jacksion

大家帮忙看看
DCL：

test:dialog{
  :edit_box{label = "Enter"; key="edit1";}
  ok_cancel;
}

LSP：

(setq a (list "Hello"))
(defun c:test()
(setq sdt 0)
(setq filename(getfiled "请选择DCL文件：" "e:/" "dcl" 8))
(setq id (load_dialog filename))
(if(< id 0)(exit))
(if (not (new_dialog "test" id))(exit))
(set_tile "edit1" (car a))
(action_tile "accept" "(done_dialog 1)(setq a (list (get_tile \"edit1\")))")
(action_tile "cancel" "(done_dialog -1)")
(setq sdt(start_dialog))
(unload_dialog id)
(princ)
)

meflying

这样
(action_tile "accept" "(setq a (list (get_tile \"edit1\"))) (done_dialog 1)")

，不好意思，上次写的漏了结束对话框了。

jacksion

谢谢了，程序可以了