父子嵌套对话框中，子对话框中编辑框内数字传值到父对话框中的编辑框内

jwj0805 · 发表于 2014-4-3 22:47:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

问一下大家，如果我想实现，在点击第二个对话框中确定按钮后，第二个对话框中编辑框内的数字“4500”出现在第一个对话框中的编辑框中，该怎么写。
ts2:dialog{
label="测试对话框";
:edit_box{label="测试2";key="box2";}
:button{label="关闭";key="dn2";}
ok_cancel;
}

ts1:dialog{
label="测试对话框";
:button{ label="新对话框";key="ts1";}
:edit_box{label="测试1";key="box1";}
ok_cancel;
}

(defun c:ts()
  (setq dcl_id (load_dialog "ts1"))
  (new_dialog "ts1" dcl_id)
  (action_tile "ts1" "(newdlg)")
  (start_dialog)
)

(defun newdlg()
(setq dcl_id1 (load_dialog "ts2"))
(new_dialog "ts2" dcl_id1)
(set_tile "box2" "4500")
(action_tile "dn2" "(done_dialog 2)")
(start_dialog)
  )

zxq0220 · 发表于 2014-4-4 07:59:31

本帖最后由 zxq0220 于 2014-4-4 19:48 编辑

(defun newdlg()
(setq dcl_id1 (load_dialog "ts2"))
(new_dialog "ts2" dcl_id1)
(set_tile "box2" "4500")
(action_tile "dn2" "(getdata)(done_dialog 2)")
(setq re2 (start_dialog))
(if (= re2 2) (set_tile "box1" dn2))
)
(defun getdata ()
(setq dn2 (get_tile "box2"))
)

/db_自贡黄明儒_ · 发表于 2014-4-4 12:35:47

对话框什么事情也不能做，只能用来显示一下数据。故子对话框的数据保存为一个变量，然后赋给父对话框就可了。

jwj0805 · 发表于 2014-4-4 13:05:30

zxq0220 发表于 2014-4-4 07:59

您好，你这样好像不行，一案的话CAD 就死机了

jwj0805 · 发表于 2014-4-4 13:07:00

/db_自贡黄明儒_ 发表于 2014-4-4 12:35
对话框什么事情也不能做，只能用来显示一下数据。故子对话框的数据保存为一个变量，然后赋给父对话框就可了 ...

我也觉得是这样，但是传值CAD就不动了，搞不懂为什么会这样，所以想问问。

jwj0805 · 发表于 2014-4-4 13:14:36

zxq0220 发表于 2014-4-4 07:59

谢谢了，你是对的，只是你写的那个子程序getdata（）里面“dn2”改为BOX2

账号		自动登录	找回密码
密码			立即注册

[求助] 父子嵌套对话框中，子对话框中编辑框内数字传值到父对话框中的编辑框内

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评