向各位朋友求助！

jacksion

我目前面临着一个头痛的问题，就如何使用autolisp来完成对话框的缺省值的设置，这里要求，在dcl里不设定初始值，比方说，上一次我输入一些参数，我要在修改的时候它能保留这些参数，就是做到为用户提供缺省值。
希望你们能帮帮我！谢谢了！

meflying

将参数保留在一个表里，
然后下次调用时，通过提取表里的数据对对话框进行设定。

xazhji

set_tile....

jacksion

你可以帮我写一段类试的程序出来吗？麻烦了，我等着急用！谢谢了！

meflying

-------------test.dcl-----------
test1:dialog{
  :edit_box{label = "Enter"; key="edit1";}
  ok_cancel;
}

-------------test.dcl----------------
(setq a (list "Hello"))
(defun test()
  (if (< (setq dcl_id (load_dialog "test.dcl")) 0)
    (exit)
  )
  (new_dialog "test1" dcl_id)
  (set_tile "edit1" (car a))
  (action_tile "accept" "(setq a (list (get_tile \"edit1\")))")
  (start_dialog)
  (unload_dialog dcl_id)
)

jacksion

你的这个程序我试了试，怎么有些问题啊，是我搞错了，还是里面有点小毛病？
这位版主老师，你是哪里人啊 ？很想向你学习学习！