[求助]DCL的返回值

yxp

我使用以下语句捕捉DCL的返回值,       


(setq        fan_hui (start_dialog))


但是,在有的程序里点关闭按纽时返回0,


有的程序里则返回1.不知道为什么?





按常理都应该是返回0,和cancel按纽一样啊.

yxp

好象和使用ok_only;和ok_cancel有关


在使用ok_only时关闭对话框则返回1


在使用ok_cancel时关闭对话框则返回0


真实奇怪.

雅明

(setq fan_hui (start_dialog)) 上面的东东返回的值和你的程序(如下类似)有关哟!
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")

meflying

其实OK和CANCEL只是内部定义了done_dialog的值,你可以自己任意定义不同的值来执行不同的操作:


...(done_dialog 4)...





如setq n (start_dialog))


(if (= n 4) ...)

yxp

4楼没有理解我的问题,


3楼的方法我试了,还是无法解决.

meflying

不知道是你没有理解我,还是我没有理解你,让别人来评评...

yxp

我从开始接触LISP也有一年了,现在才明白一个很简单的问题.


我的结论如下:DCL对话框必须要具有is_default 和is_cancel 的属性,


1.如果采用ok_cancel;预定义控件,则ok按纽已具有is_default 的属性,cancel按纽则具有is_cancel属性,所以对话框在被确认时返回1.被取消或ESC时返回0.


2.如果使用ok_only控件,则缺少is_cancel的属性定义,所以无论时确认还是取消都返回1.


3.使用自定义"确定"和"取消"按纽,"确定"按纽必须具有is_default 属性,否则对话框无法加载,"取消"按纽的is_cancel属性可有可无,若无该属性缺省值为 false,对话框在ESC时无响应.若有并且为true时则退出对话框时才反回0.


不知道是否正确,还望广大高手予以指点和纠正.

meflying

是我没有理解你的意思,不过这个不需要搞这么清楚,主要是要灵活运用,如下面这个程序,采用主动控制,无论是内部定义的控件,还是自定义的控件,is_default和is_cancel属性是什么,"accept"控件都将返回12

2. (defun c:test( / dcl_id)
3.    (setq dcl_id (load_dialog "tmp"))
4.    (new_dialog "hello" dcl_id)
5.    (action_tile "accept" "(done_dialog 12)")
6.    (princ (start_dialog))
7.    (unload_dialog dcl_id)
8.    (princ)
9. )

(defun c:test( / dcl_id)    (setq dcl_id (load_dialog "tmp"))    (new_dialog "hello" dcl_id)    (action_tile "accept" "(done_dialog 12)")    (princ (start_dialog))    (unload_dialog dcl_id)    (princ) )