dcl中暂时退出对话框的方法

陨落

对于高手们来说，这肯定是一个小儿科
但对于我这种水平的，想到到一个方法来实现还是很开心
简单地说，假设有一个button的key值为“key1"，那么用(action_tile "key1""(done_dialog 23)")这样的语句设置退出值
，然后用
(setq dd(start_dialog))
(while (= dd 23)(需在此期间执行的语句)
                 (new_dialog "dcldlg" dcid"")
                  (action_tile "key1""(done_dialog 23)")
                   (action_tile "accept" "(done_dialog 1)")
                   (setq dd(start_dialog))
    )

这样的语句来实现退出方式的判断及对话框的返回
希望大家能够给予指点，最好能够提一些别的方法，以供学习

陨落

发现好像高飞鸟早就讲过了……