DCL中屏蔽确认键的问题

zhanghong

对话框中，怎么样才能在没有输入内容时，屏蔽确认键呀。

BDYCAD

(mode_tile "accept" 1)　

CADghost

嘿嘿，又学了一招~

zhanghong

楼上的两位，不行呀，怎样才能不全部输入文字框里的内容，就屏蔽确认键呀，我怎么不会？？

BDYCAD

给你个例子参考 LISP代码: (defun C:BCB (/)
(defun *error* ()
(if old_error(setq *error* old_error)))
(defun BoB (arg)
(if (EQ arg "")
(progn (set_tile "error" "无效输入.") (mode_tile "accept" 1))
(progn (set_tile "error" arg)(mode_tile "accept" 0))
)
)
(setq dcl_id (load_dialog "D:\\DEL2"))
(if (not (new_dialog "BDYCADFaC08K6" dcl_id))(exit))
(action_tile "name" "(BoB (setq name $value))")
(action_tile "nam" "(BoB (setq nam $value))")
(action_tile "O" "(BoB (setq O $value))")
(action_tile "X" "(BoB (setq X $value))")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 2)")
(action_tile "help" "(help \"\")")
(SETQ DD (start_dialog))
(princ)
) DCL代码:
BDYCADFaC08K6 : dialog {
label = "指定位置插入数据"; :column {
:row{
: boxed_column {label = "个人资料﹕";
: edit_box { label = "姓名";key = "name";edit_width = 8;}
: edit_box { label = "性别";key = "nam"; edit_width = 8;}
: edit_box { label = "年龄";key = "O";edit_width = 8;}
: edit_box { label = "血型"; key = "X"; edit_width = 8; }
}} }
spacer_1;
ok_cancel;
}

CADghost

请问，楼主对话框中的图片是如何插入的，


请赐教

BDYCAD

图片是骗你的, 你上当了


你看不出是贴上去的效果吗?

zhanghong

BDYCAD，不好使呀？并不能屏蔽确认呀？？？

meflying

(defun C:BCB (/)
(defun BoB (arg)
(if (/= arg "")
(progn (set_tile "error" arg)(mode_tile "accept" 0))
)
)
(setq dcl_id (load_dialog "tmp"))
(if (not (new_dialog "BDYCADFaC08K6" dcl_id))(exit))
(mode_tile "accept" 1)
(action_tile "name" "(BoB (setq name $value))")
(action_tile "nam" "(BoB (setq nam $value))")
(action_tile "O" "(BoB (setq O $value))")
(action_tile "X" "(BoB (setq X $value))")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 2)")
(action_tile "help" "(help \"\")")
(SETQ DD (start_dialog))
(princ)
)

CADghost