DCL迷路者，ZZXXQQ大哥，帮我一下好吗

QUAN2518

给你的列子也许对你有帮助也是我在站内看到的

LISP第一个对话框调用第二个对话框做法示例

——————;;;TEST.LSP 文件如下
;编程:BDYCAD
;时间:2007-12-20早
(defun C:TEST()
  (setq dclfile(findfile"BDY002.DCL"))
  (if(<(setq dcl_id(load_dialog dclfile))0)(exit))
  (if(not(new_dialog"SelectPoint"dcl_id "BDYCAD"))(exit))
  (set_tile "BAO-X1" "0")
  (set_tile "BAO-Y1" "0")
  (set_tile "BAO-X2" "10")
  (set_tile "BAO-Y2" "10")
  (action_tile"ok" "(Set::OKey1)")
  (action_tile"Ca" "(done_dialog 1)")
  (setq DD(start_dialog))(unload_dialog dcl_id)
  (PRINC)
  )

(DEFUN Set::OKey1()
  (if(not(new_dialog"SelectPoint2"dcl_id "BDYCAD"))(exit))
   (action_tile"ok" "(done_dialog 0))")
  (action_tile"Ca" "(done_dialog 1)")
  (setq DD(start_dialog))
  )

——————;;;BDY002.dcl  文件如下
SelectPoint : dialog{label="数位板定位";:row{: boxed_column {label = "参数表";
:row{
:text{label="第一点:";}
:edit_box {label="X:";key = "BAO-X1"; edit_width= 10;}
:edit_box {label="Y:";key = "BAO-Y1"; edit_width= 10;}}
:row{
:text{label="第二点:";}
:edit_box {label="X:";key = "BAO-X2"; edit_width= 10;}
:edit_box {label="Y:";key = "BAO-Y2"; edit_width= 10;}}
:row{:button{label="参数1";key="ok";is_default=true;}
:button{label="确定";key="Ca";is_cancel=true;}}}}}

SelectPoint2 : dialog{label="第二个对话框  参数框架";:row{: boxed_column {label = "参数表";
:row{
:text{label="ABCD:";}
:edit_box {label="X:";key = "BAO-X2"; edit_width= 10;}
:edit_box {label="Y:";key = "BAO-Y2"; edit_width= 10;}}
:row{:button{label="确定";key="ok";is_default=true;}
:button{label="取消";key="Ca";is_cancel=true;}}}}}

ZZXXQQ

1、主函数缺两个右括弧；

2、缺错误判断；

3、如果DCL在一个文件中，子函数中不要load_dialog；

4、如果DCL不在一个文件中，子函数load_dialog中的变量不要重名；

5、子函数中缺start_dialog，无法显示对话框。

ZZXXQQ

返回前一个对话框在start_dialog前加上(action_tile "accept" "(done_dialog 0)")