[VBALISPER]恐龙 15:52:19
(setq dcl_id(load_dialog "责任表.dcl"))
(new_dialog "zrbedit" dcl_id "(e2dcl)")
;设置文本框的内容动态关联,注意这里调用了函数
;(action_tile "accept" "(s_input)(e2dcl)(done_dialog)")
(start_dialog);显示对话框并将控制交给对话框
;卸载对话框;卸载对话框后再进行计算和画图
(unload_dialog dcl_id)
[VBALISPER]恐龙 15:52:53
(e2dcl)是我定义的设置值的函数.
(defun e2dcl()
(set_tile "gsming" "公司名")
(set_tile "tuming" "图名")
(set_tile "A1" "A1")
(set_tile "B1" "B1")
)
[VBALISPER]恐龙 15:57:32
在DCL中任意一个编辑框里点一下,就出来我要的值了.但是怎么能让它不用点.加载DCL后,就自动出来从EXCEL中读出的值 |