[求助]：为什么对话框调用不正确呀

lei_na521

我编写了一个对话框,当用程序调用时,点击确定按钮时传递了参数,但对话框不消失,而点击取消按钮时,对话框才消失.而程序运行也正常.请大家帮忙看看是什么原因.

(setq dcl_id (load_dialog "g:/我的程序/标题栏.dcl"))
  (if (not (new_dialog "标题栏" dcl_id))
    (exit)
  )
  (action_tile "accept" "(canshu)")
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)

标题栏:dialog{
label="标题栏对话框";
:boxed_column{
label="工程信息";
:edit_box{
label="设计单位";
edit_width=40;
edit_limit=60;
key="pd1";
value="大庆油田建设设计研究院";
}

:edit_box{
label="设计证书编号";
edit_width=40;
edit_limit=60;
key="pd2";
value="0800011";
}
:edit_box{
label="勘察证书编号";
edit_width=40;
edit_limit=60;
key="pd3";
value="0800016";
}

:edit_box{
label="工程名称";
edit_width=40;
edit_limit=60;
key="pd4";
value="新南3—2转油站及系统工程";
}
:edit_box{
label="图纸名称(上行)";
edit_width=40;
edit_limit=60;
key="pd5";
value="转油站";
}
:edit_box{
label="图纸名称(下行)";
edit_width=40;
edit_limit=60;
key="pd51";
value="加药间工艺安装图";
}
}
:boxed_column{
label="人员信息";
:row{
:edit_box{
label="制图";
edit_width=15;
edit_limit=30;
key="pd6";
}
:edit_box{
label="        设计";
edit_width=15;
edit_limit=30;
key="pd7";
value=" ";
}
}
:row{
:edit_box{
label="校对";
edit_width=15;
edit_limit=30;
key="pd8";
value=" ";
}
:edit_box{
label="        审核";
edit_width=15;
edit_limit=30;
key="pd9";
value=" ";
}
}
}
:boxed_column{
label="其他信息";
:row{
:edit_box{
label="室别  ";
edit_width=10;
edit_limit=30;
key="pd10";
value="油气集输室";
}
:edit_box{
label=" 阶段  ";
edit_width=10;
edit_limit=30;
key="pd11";
value="施工图";
}
:edit_box{
label="档案号集";
edit_width=10;
edit_limit=30;
key="pd12";
value="17401/9";
}
}
:row{
:edit_box{
label="比例";
edit_width=10;
edit_limit=30;
key="pd13";
value="1:20";
}
:edit_box{
label="日期";
edit_width=10;
edit_limit=30;
key="pd14";
value="2001 10 22";
}
:edit_box{
label="项目号 ";
edit_width=10;
edit_limit=30;
key="pd15";
value="(02)0502C1-07";
}
}
}
ok_cancel;
}

cy956

(ACTION_TILE "accept" "(canshu)(done_dialog 1)")

lei_na521

谢谢斑竹大人