陨落 发表于 2015-8-6 22:57:21

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))
    )

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

陨落 发表于 2015-8-6 23:04:42

发现好像高飞鸟早就讲过了……
页: [1]
查看完整版本: dcl中暂时退出对话框的方法