对话框切换问题

x_s_s_1

关于多个对话框之间的切换，尝试了很久，没有成功，麻烦各位网友相助，谢谢。
举例，一个dcl文件中，包含temp1和temp2两个对话框.1.执行命令aa，显示temp1对话框，其有两个按钮【下一个对话框】【取消】；
2.对话框temp1有两个按钮，当按【取消】时，关闭temp1对话框；
3.当按【下一个对话框】按钮时，关闭temp1对话框，显示temp2对话框；
4.temp2对话框有两个按钮【图中选择】【回前菜单】；
5.当按【图中选择】按钮时，关闭全部对话框，至图中选择一个图元，选择完毕后回到temp2对话框；
6.当按【回前菜单】按钮时关闭temp2对话框，显示temp1对话框；
发帖的时候没条件录屏，补个动图，表达的清楚一些

2. (defun c:aa ()
   
3.   (setq  dcllst '("temp1:dialog {"
   
4.      "            :button {"
   
5.      "                key = "bt1" ;"
   
6.      "                label = "下一个对话框" ;"
   
7.      "            }"
   
8.      "            :button {"
   
9.      "                is_cancel = true ;"
   
10.      "                key = "bt2" ;"
    
11.      "                label = "取消" ;"
    
12.      "            }"
    
13.      "}"
    
14.      "temp2:dialog {"
    
15.      "            :button {"
    
16.      "                key = "bt3" ;"
    
17.      "                label = "图中选择" ;"
    
18.      "            }"
    
19.      "            :button {"
    
20.      "                is_cancel = true ;"
    
21.      "                key = "bt4" ;"
    
22.      "                label = "回前菜单" ;"
    
23.      "            }"
    
24.      "}"
    
25.     )
    
26.   )
    
27.   (setq  tmpf (xty-sys-makeFbylst
    
28.          (vl-filename-mktemp nil nil ".dcl")
    
29.          dcllst
    
30.        )
    
31.   )
    
32.   (setq callback1 2)
    
33.   (setq dcl_id (load_dialog tmpf))
    
34.   (vl-file-delete tmpf)
    
35.   (while (> callback1 1)
    
36.     (new_dialog "temp1" dcl_id)
    
37.     (action_tile "bt1" "(do_bt1)")
    
38.     (action_tile "bt2" "(do_bt2)")
    
39.     (setq callback1 (start_dialog))
    
40.     (cond ((= 1 callback1) (showtemp2))
    
41.     ((= 2 callback1))
    
42.     )
    
43.   )
    
44.   (unload_dialog dcl_id)
    
45. )
    
46. (defun do_bt1 () (done_dialog 1))
    
47. (defun do_bt2 () (done_dialog 2))
    
48. (defun showtemp2 ()
    
49.   (setq callback2 2)
    
50.   (while (> callback2 1)
    
51.     (new_dialog "temp2" dcl_id)
    
52.     (action_tile "bt3" "(do_bt3)")
    
53.     (action_tile "bt4" "(do_bt4)")
    
54.     (setq callback2 (start_dialog))
    
55.     (cond ((= 1 callback2))
    
56.     ((= 2 callback2))
    
57.     )
    
58.   )
    
59. )
    
60. (defun xty-sys-makeFbylst (filename strlst / f n)
    
61.   (setq f (open filename "w"))
    
62.   (foreach n strlst (write-line n f))
    
63.   (close f)
    
64.   filename
    
65. )

(defun c:aa ()<br />   (setq  dcllst '("temp1:dialog {"<br />      "            :button {"<br />      "                key = "bt1" ;"<br />      "                label = "下一个对话框" ;"<br />      "            }"<br />      "            :button {"<br />      "                is_cancel = true ;"<br />      "                key = "bt2" ;"<br />      "                label = "取消" ;"<br />      "            }"<br />      "}"<br />      "temp2:dialog {"<br />      "            :button {"<br />      "                key = "bt3" ;"<br />      "                label = "图中选择" ;"<br />      "            }"<br />      "            :button {"<br />      "                is_cancel = true ;"<br />      "                key = "bt4" ;"<br />      "                label = "回前菜单" ;"<br />      "            }"<br />      "}"<br />     )<br />   )<br />   (setq  tmpf (xty-sys-makeFbylst<br />          (vl-filename-mktemp nil nil ".dcl")<br />          dcllst<br />        )<br />   )<br />   (setq callback1 2)<br />   (setq dcl_id (load_dialog tmpf))<br />   (vl-file-delete tmpf)<br />   (while (> callback1 1)<br />     (new_dialog "temp1" dcl_id)<br />     (action_tile "bt1" "(do_bt1)")<br />     (action_tile "bt2" "(do_bt2)")<br />     (setq callback1 (start_dialog))<br />     (cond ((= 1 callback1) (showtemp2))<br />     ((= 2 callback1))<br />     )<br />   )<br />   (unload_dialog dcl_id)<br /> )<br /> (defun do_bt1 () (done_dialog 1))<br /> (defun do_bt2 () (done_dialog 2))<br /> (defun showtemp2 ()<br />   (setq callback2 2)<br />   (while (> callback2 1)<br />     (new_dialog "temp2" dcl_id)<br />     (action_tile "bt3" "(do_bt3)")<br />     (action_tile "bt4" "(do_bt4)")<br />     (setq callback2 (start_dialog))<br />     (cond ((= 1 callback2))<br />     ((= 2 callback2))<br />     )<br />   )<br /> )<br /> (defun xty-sys-makeFbylst (filename strlst / f n)<br />   (setq f (open filename "w"))<br />   (foreach n strlst (write-line n f))<br />   (close f)<br />   filename<br /> )

masterlong

无非就是一个逻辑关系嘛
DCL文件里有几个对话框有啥关系
都是可以单独调用的

所有的对话框启动和退出时
设置好对话框数据的load与save函数以后
循环调用、嵌套调用想怎么做怎么做

wzg356

分开写简单些
取消按钮(done_dialog 0)为默认/必须，可以不写
(defun c:aa ( / dcllst tmpf dcl_id callback1)
  (setq  dcllst '("temp1:dialog {"
     "            :button {"
     "                key = \"bt1\" ;"
     "                label = \"下一个对话框\" ;"
     "            }"
     "            :button {"
     "                is_cancel = true ;"
     "                key = \"bt2\" ;"
     "                label = \"取消\" ;"
     "            }"
     "}"
    )
  )
  (setq  tmpf (xty-sys-makeFbylst
         (vl-filename-mktemp nil nil ".dcl")
         dcllst
       )
  )
  (setq dcl_id (load_dialog tmpf))
  (vl-file-delete tmpf)
  (new_dialog "temp1" dcl_id)
  (action_tile "bt1" "(done_dialog 1)")
  (setq callback1 (start_dialog))   
  (unload_dialog dcl_id)
  (if (= callback1 1) (bb))
)
(defun bb ( / dcllst tmpf dcl_id callback1)
  (setq  dcllst '("temp2:dialog {"
     "            :button {"
     "                key = \"bt3\" ;"
     "                label = \"图中选择\" ;"
     "            }"
     "            :button {"
     "                is_cancel = true ;"
     "                key = \"bt4\" ;"
     "                label = \"回前菜单\" ;"
     "            }"
     "}"
    )
  )
  (setq  tmpf (xty-sys-makeFbylst
         (vl-filename-mktemp nil nil ".dcl")
         dcllst
       )
  )  
  (setq dcl_id (load_dialog tmpf))
  (vl-file-delete tmpf)
   (new_dialog "temp2" dcl_id)
   (action_tile "bt3" "(done_dialog 1)")
   (action_tile "bt4" "(done_dialog 2)")
   (setq callback1 (start_dialog))
   (unload_dialog dcl_id)
    (cond
            ((= callback1 2) (c:aa))
            ((= callback1 1) (alert "图中选择"))
            (t nil)
   
    )
)
(defun xty-sys-makeFbylst (filename strlst / f n)
  (setq f (open filename "w"))
  (foreach n strlst (write-line n f))
  (close f)
  filename
)

x_s_s_1

wzg356 发表于 2022-3-25 00:18
分开写简单些
取消按钮(done_dialog 0)为默认/必须，可以不写
(defun c:aa ( / dcllst tmpf dcl_id callb ...

谢谢，这么晚还回帖，分开的dcl我写出来了，您这个代码我看了一下，估计在点取了bt3后直接退出命令，不会回到temp2对话框。晚点我验证一下。再次感谢，辛苦了.

x_s_s_1

wzg356 发表于 2022-3-25 00:18
分开写简单些
取消按钮(done_dialog 0)为默认/必须，可以不写
(defun c:aa ( / dcllst tmpf dcl_id callb ...

验证了一下您的代码，确实点了bt3以后不会回到temp2，下面是我自己写的两个dcl的代码

2. (defun c:aa()(bb))
   
3. (defun bb ()
   
4.   (setq        dcllst1        '("temp1:dialog {"
   
5.                   "            :button {"
   
6.                   "                key = "bt1" ;"
   
7.                   "                label = "下一个对话框" ;"
   
8.                   "            }"
   
9.                   "            :button {"
   
10.                   "                is_cancel = true ;"
    
11.                   "                key = "bt2" ;"
    
12.                   "                label = "取消" ;"
    
13.                   "            }"
    
14.                   "}"
    
15.                   )
    
16.         )
    
17.   (setq        tmpf (xty-sys-makeFbylst
    
18.                (vl-filename-mktemp nil nil ".dcl")
    
19.                dcllst1
    
20.                )
    
21.         )
    
22.   (setq callback1 2)
    
23.   (setq dcl_id1 (load_dialog tmpf))
    
24.   (vl-file-delete tmpf)
    
25.   (while (> callback1 1)
    
26.     (new_dialog "temp1" dcl_id1)
    
27.     (action_tile "bt1" "(do_bt1)")
    
28.     (action_tile "bt2" "(do_bt2)")
    
29.     (setq callback1 (start_dialog))
    
30.     (cond ((= 1 callback1) (cc))
    
31.           ((= 2 callback1))
    
32.           )
    
33.     )
    
34.   (unload_dialog dcl_id1)
    
35.   )
    
36. (defun cc ()
    
37.   (setq        dcllst2        '("temp2:dialog {"
    
38.                   "            :button {"
    
39.                   "                key = "bt3" ;"
    
40.                   "                label = "图中选择" ;"
    
41.                   "            }"
    
42.                   "            :button {"
    
43.                   "                is_cancel = true ;"
    
44.                   "                key = "bt4" ;"
    
45.                   "                label = "回前菜单" ;"
    
46.                   "            }"
    
47.                   "}"
    
48.                   )
    
49.         )
    
50.   (setq        tmpf (xty-sys-makeFbylst
    
51.                (vl-filename-mktemp nil nil ".dcl")
    
52.                dcllst2
    
53.                )
    
54.         )
    
55.   (setq callback2 2)
    
56.   (setq dcl_id2 (load_dialog tmpf))
    
57.   (vl-file-delete tmpf)
    
58.   (while (> callback2 1)
    
59.     (new_dialog "temp2" dcl_id2)
    
60.     (action_tile "bt3" "(do_bt3)")
    
61.     (action_tile "bt4" "(do_bt4)")
    
62.     (setq callback2 (start_dialog))
    
63.     (cond ((= 2 callback2) (setq pt(getpoint"\n图中拾取:")))
    
64.           ((= 0 callback2)(bb))
    
65.           )
    
66.     )
    
67.   (unload_dialog dcl_id2)
    
68.   )
    
69. (defun do_bt1()(done_dialog 1))
    
70. (defun do_bt3()(done_dialog 2))

(defun c:aa()(bb))<br /> (defun bb ()<br />   (setq        dcllst1        '("temp1:dialog {"<br />                   "            :button {"<br />                   "                key = "bt1" ;"<br />                   "                label = "下一个对话框" ;"<br />                   "            }"<br />                   "            :button {"<br />                   "                is_cancel = true ;"<br />                   "                key = "bt2" ;"<br />                   "                label = "取消" ;"<br />                   "            }"<br />                   "}"<br />                   )<br />         )<br />   (setq        tmpf (xty-sys-makeFbylst<br />                (vl-filename-mktemp nil nil ".dcl")<br />                dcllst1<br />                )<br />         )<br />   (setq callback1 2)<br />   (setq dcl_id1 (load_dialog tmpf))<br />   (vl-file-delete tmpf)<br />   (while (> callback1 1)<br />     (new_dialog "temp1" dcl_id1)<br />     (action_tile "bt1" "(do_bt1)")<br />     (action_tile "bt2" "(do_bt2)")<br />     (setq callback1 (start_dialog))<br />     (cond ((= 1 callback1) (cc))<br />           ((= 2 callback1))<br />           )<br />     )<br />   (unload_dialog dcl_id1)<br />   )<br /> (defun cc ()<br />   (setq        dcllst2        '("temp2:dialog {"<br />                   "            :button {"<br />                   "                key = "bt3" ;"<br />                   "                label = "图中选择" ;"<br />                   "            }"<br />                   "            :button {"<br />                   "                is_cancel = true ;"<br />                   "                key = "bt4" ;"<br />                   "                label = "回前菜单" ;"<br />                   "            }"<br />                   "}"<br />                   )<br />         )<br />   (setq        tmpf (xty-sys-makeFbylst<br />                (vl-filename-mktemp nil nil ".dcl")<br />                dcllst2<br />                )<br />         )<br />   (setq callback2 2)<br />   (setq dcl_id2 (load_dialog tmpf))<br />   (vl-file-delete tmpf)<br />   (while (> callback2 1)<br />     (new_dialog "temp2" dcl_id2)<br />     (action_tile "bt3" "(do_bt3)")<br />     (action_tile "bt4" "(do_bt4)")<br />     (setq callback2 (start_dialog))<br />     (cond ((= 2 callback2) (setq pt(getpoint"\n图中拾取:")))<br />           ((= 0 callback2)(bb))<br />           )<br />     )<br />   (unload_dialog dcl_id2)<br />   )<br /> (defun do_bt1()(done_dialog 1))<br /> (defun do_bt3()(done_dialog 2))

xyp1964

1. (defun c:aa ()
   
2.   (defun do_bt1 () (done_dialog 1))
   
3.   (defun do_bt2 () (done_dialog 0))
   
4.   (setq        dcl1        '("temp1:dialog{:button{key=bt1;label=下一个对话框;}"
   
5.                   ":button{is_cancel=true;key=bt2;label=取消;}}"
   
6.                  )
   
7.         tmpf        (xty-sys-makeFbylst
   
8.                   (vl-filename-mktemp nil nil ".dcl")
   
9.                   dcl1
   
10.                 )
    
11.         dcl_id1        (load_dialog tmpf)
    
12.   )
    
13.   (vl-file-delete tmpf)
    
14.   (new_dialog "temp1" dcl_id1)
    
15.   (action_tile "bt1" "(do_bt1)")
    
16.   (action_tile "bt2" "(do_bt2)")
    
17.   (setq callback1 (start_dialog))
    
18.   (cond ((= callback1 1) (c:bb)))
    
19.   (unload_dialog dcl_id1)
    
20.   (princ)
    
21. )
    
22. 
    
23. (defun c:bb ()
    
24.   (defun do_bt3 () (done_dialog 1))
    
25.   (defun do_bt4 () (done_dialog 2))
    
26.   (setq        dcl2        '("temp2:dialog{"
    
27.                   ":button{key=bt3;label=图中选择;}"
    
28.                   ":button{is_cancel=true;key=bt4;label=回前菜单;}}"
    
29.                  )
    
30.         tmpf        (xty-sys-makeFbylst
    
31.                   (vl-filename-mktemp nil nil ".dcl")
    
32.                   dcl2
    
33.                 )
    
34.         dcl_id2        (load_dialog tmpf)
    
35.   )
    
36.   (vl-file-delete tmpf)
    
37.   (new_dialog "temp2" dcl_id2)
    
38.   (action_tile "bt3" "(do_bt3)")
    
39.   (action_tile "bt4" "(do_bt4)")
    
40.   (setq callback2 (start_dialog))
    
41.   (cond        ((= callback2 1) (setq pt (getpoint "\n图中拾取:")))
    
42.         ((= callback2 2) (c:aa))
    
43.   )
    
44.   (unload_dialog dcl_id2)
    
45.   (princ)
    
46. )
    
47. 
    
48. (defun xty-sys-makeFbylst (filename strlst / f n)
    
49.   (setq f (open filename "w"))
    
50.   (foreach n strlst (write-line n f))
    
51.   (close f)
    
52.   filename
    
53. )
    

(defun c:aa ()<br />   (defun do_bt1 () (done_dialog 1))<br />   (defun do_bt2 () (done_dialog 0))<br />   (setq        dcl1        '("temp1:dialog{:button{key=bt1;label=下一个对话框;}"<br />                   ":button{is_cancel=true;key=bt2;label=取消;}}"<br />                  )<br />         tmpf        (xty-sys-makeFbylst<br />                   (vl-filename-mktemp nil nil ".dcl")<br />                   dcl1<br />                 )<br />         dcl_id1        (load_dialog tmpf)<br />   )<br />   (vl-file-delete tmpf)<br />   (new_dialog "temp1" dcl_id1)<br />   (action_tile "bt1" "(do_bt1)")<br />   (action_tile "bt2" "(do_bt2)")<br />   (setq callback1 (start_dialog))<br />   (cond ((= callback1 1) (c:bb)))<br />   (unload_dialog dcl_id1)<br />   (princ)<br /> )<br /> <br /> (defun c:bb ()<br />   (defun do_bt3 () (done_dialog 1))<br />   (defun do_bt4 () (done_dialog 2))<br />   (setq        dcl2        '("temp2:dialog{"<br />                   ":button{key=bt3;label=图中选择;}"<br />                   ":button{is_cancel=true;key=bt4;label=回前菜单;}}"<br />                  )<br />         tmpf        (xty-sys-makeFbylst<br />                   (vl-filename-mktemp nil nil ".dcl")<br />                   dcl2<br />                 )<br />         dcl_id2        (load_dialog tmpf)<br />   )<br />   (vl-file-delete tmpf)<br />   (new_dialog "temp2" dcl_id2)<br />   (action_tile "bt3" "(do_bt3)")<br />   (action_tile "bt4" "(do_bt4)")<br />   (setq callback2 (start_dialog))<br />   (cond        ((= callback2 1) (setq pt (getpoint "\n图中拾取:")))<br />         ((= callback2 2) (c:aa))<br />   )<br />   (unload_dialog dcl_id2)<br />   (princ)<br /> )<br /> <br /> (defun xty-sys-makeFbylst (filename strlst / f n)<br />   (setq f (open filename "w"))<br />   (foreach n strlst (write-line n f))<br />   (close f)<br />   filename<br /> )<br />

wzg356

x_s_s_1 发表于 2022-3-25 08:19
谢谢，这么晚还回帖，分开的dcl我写出来了，您这个代码我看了一下，估计在点取了bt3后直接退出命令，不会 ...

不影响啊

aa里面两个对话框一起也可以，

把bb里面写/删对话框过程删掉就行了

xyp1964

xyp1964 发表于 2022-3-25 15:01

1. (defun c:tt ()
   
2.   (setq        dlst '("temp1:dialog{:button{key=bt1;label=下一个对话框;}"
   
3.                ":button{is_cancel=true;key=bt2;label=取消;}}"
   
4.                "temp2:dialog{:button{key=bt3;label=图中选择;}"
   
5.                ":button{is_cancel=true;key=bt4;label=回前菜单;}}"
   
6.               )
   
7.   )
   
8.   (defun aa () ; tt(dcl界面切换)
   
9.     (defun do_bt1 () (done_dialog 1))
   
10.     (defun do_bt2 () (done_dialog 0))
    
11.     (setq tmpf          (xty-sys-makeFbylst
    
12.                     (vl-filename-mktemp nil nil ".dcl")
    
13.                     dlst
    
14.                   )
    
15.           dcl_id1 (load_dialog tmpf)
    
16.     )
    
17.     (vl-file-delete tmpf)
    
18.     (new_dialog "temp1" dcl_id1)
    
19.     (action_tile "bt1" "(do_bt1)")
    
20.     (action_tile "bt2" "(do_bt2)")
    
21.     (setq callback1 (start_dialog))
    
22.     (cond ((= callback1 1) (bb)))
    
23.     (unload_dialog dcl_id1)
    
24.     (princ)
    
25.   )
    
26.   (defun bb ()
    
27.     (defun do_bt3 () (done_dialog 1))
    
28.     (defun do_bt4 () (done_dialog 2))
    
29.     (setq tmpf          (xty-sys-makeFbylst
    
30.                     (vl-filename-mktemp nil nil ".dcl")
    
31.                     dlst
    
32.                   )
    
33.           dcl_id2 (load_dialog tmpf)
    
34.     )
    
35.     (vl-file-delete tmpf)
    
36.     (new_dialog "temp2" dcl_id2)
    
37.     (action_tile "bt3" "(do_bt3)")
    
38.     (action_tile "bt4" "(do_bt4)")
    
39.     (setq callback2 (start_dialog))
    
40.     (cond ((= callback2 1) (setq pt (getpoint "\n图中拾取:")))
    
41.           ((= callback2 2) (aa))
    
42.     )
    
43.     (unload_dialog dcl_id2)
    
44.     (princ)
    
45.   )
    
46.   (defun xty-sys-makeFbylst (filename strlst / f n)
    
47.     (setq f (open filename "w"))
    
48.     (foreach n strlst (write-line n f))
    
49.     (close f)
    
50.     filename
    
51.   )
    
52.   (aa)
    
53.   (princ)
    
54. )
    

(defun c:tt ()<br />   (setq        dlst '("temp1:dialog{:button{key=bt1;label=下一个对话框;}"<br />                ":button{is_cancel=true;key=bt2;label=取消;}}"<br />                "temp2:dialog{:button{key=bt3;label=图中选择;}"<br />                ":button{is_cancel=true;key=bt4;label=回前菜单;}}"<br />               )<br />   )<br />   (defun aa () ; tt(dcl界面切换)<br />     (defun do_bt1 () (done_dialog 1))<br />     (defun do_bt2 () (done_dialog 0))<br />     (setq tmpf          (xty-sys-makeFbylst<br />                     (vl-filename-mktemp nil nil ".dcl")<br />                     dlst<br />                   )<br />           dcl_id1 (load_dialog tmpf)<br />     )<br />     (vl-file-delete tmpf)<br />     (new_dialog "temp1" dcl_id1)<br />     (action_tile "bt1" "(do_bt1)")<br />     (action_tile "bt2" "(do_bt2)")<br />     (setq callback1 (start_dialog))<br />     (cond ((= callback1 1) (bb)))<br />     (unload_dialog dcl_id1)<br />     (princ)<br />   )<br />   (defun bb ()<br />     (defun do_bt3 () (done_dialog 1))<br />     (defun do_bt4 () (done_dialog 2))<br />     (setq tmpf          (xty-sys-makeFbylst<br />                     (vl-filename-mktemp nil nil ".dcl")<br />                     dlst<br />                   )<br />           dcl_id2 (load_dialog tmpf)<br />     )<br />     (vl-file-delete tmpf)<br />     (new_dialog "temp2" dcl_id2)<br />     (action_tile "bt3" "(do_bt3)")<br />     (action_tile "bt4" "(do_bt4)")<br />     (setq callback2 (start_dialog))<br />     (cond ((= callback2 1) (setq pt (getpoint "\n图中拾取:")))<br />           ((= callback2 2) (aa))<br />     )<br />     (unload_dialog dcl_id2)<br />     (princ)<br />   )<br />   (defun xty-sys-makeFbylst (filename strlst / f n)<br />     (setq f (open filename "w"))<br />     (foreach n strlst (write-line n f))<br />     (close f)<br />     filename<br />   )<br />   (aa)<br />   (princ)<br /> )<br />

x_s_s_1

masterlong 发表于 2022-3-25 17:28
无非就是一个逻辑关系嘛
DCL文件里有几个对话框有啥关系
都是可以单独调用的

您的回帖点醒了我，我逐步调试了一下程序，大概理解了dcl的逻辑，与dcl文件中几个dialog没有任何关系；
new_dialog开始一个新的对话框，然后开始给对话框赋值，这个时候并没有显示对话框；
new_dialog一次，更新一次；
start_dialog显示对话框，把控制权交给对话框，这个时候可以选择控件；
再通过action_tile配合done_dialog 中断对话框，进行操作。
在这个期间，所有的dialog都在内存里面，想显示哪个dialog就new_dialog哪一个、
本帖中8楼以前的代码，实际上都多次写了dcl文件，因为bb函数回调的时候都调用了aa，所以要单独把写文件的函数写在循环外面。
下面是我调整后的代码

1. (defun c:cc (/ aa bb callback dcllst dcl_id pt tmpf)
   
2.   (defun aa ()
   
3.   (new_dialog "temp1" dcl_id)
   
4.   (action_tile "bt1" "(done_dialog 1)")
   
5.   (setq callback (start_dialog))
   
6.   (cond
   
7.     ((= 1 callback) (bb))
   
8.     )
   
9.   )
   
10. (defun bb ()
    
11.   (new_dialog "temp2" dcl_id)
    
12.   (action_tile "bt3" "(done_dialog 2)")
    
13.   (action_tile "bt4" "(done_dialog 4)")
    
14.   (setq callback (start_dialog))
    
15.   (cond
    
16.     ((= 2 callback) (setq pt (getpoint "\n图中拾取:")) (bb))
    
17.     ((= 4 callback) (aa))
    
18.     )
    
19.   )
    
20.   (setq        dcllst
    
21.          '("temp1:dialog{"
    
22.            ":button {key = \"bt1\" ;label = \"下一个对话框\" ;}"
    
23.            ":button {is_cancel = true ;key = \"bt2\" ;label = \"取消\" ;}"
    
24.            "}"
    
25.            "temp2:dialog {"
    
26.            ":button {key = \"bt3\" ;label = \"图中选择\" ;}"
    
27.            ":button {is_cancel = true ;key = \"bt4\" ;label = \"回前菜单\" ;}"
    
28.            "}"
    
29.            )
    
30.         )
    
31.   (setq        tmpf (xty-sys-makeFbylst
    
32.                "c:\\1.dcl"
    
33.                dcllst
    
34.                )
    
35.         )
    
36.   (setq dcl_id (load_dialog tmpf))
    
37.   (vl-file-delete tmpf)
    
38.   (aa)
    
39.   (unload_dialog dcl_id)
    
40.   )

(defun c:cc (/ aa bb callback dcllst dcl_id pt tmpf)<br />   (defun aa ()<br />   (new_dialog "temp1" dcl_id)<br />   (action_tile "bt1" "(done_dialog 1)")<br />   (setq callback (start_dialog))<br />   (cond<br />     ((= 1 callback) (bb))<br />     )<br />   )<br /> (defun bb ()<br />   (new_dialog "temp2" dcl_id)<br />   (action_tile "bt3" "(done_dialog 2)")<br />   (action_tile "bt4" "(done_dialog 4)")<br />   (setq callback (start_dialog))<br />   (cond<br />     ((= 2 callback) (setq pt (getpoint "\n图中拾取:")) (bb))<br />     ((= 4 callback) (aa))<br />     )<br />   )<br />   (setq        dcllst<br />          '("temp1:dialog{"<br />            ":button {key = \"bt1\" ;label = \"下一个对话框\" ;}"<br />            ":button {is_cancel = true ;key = \"bt2\" ;label = \"取消\" ;}"<br />            "}"<br />            "temp2:dialog {"<br />            ":button {key = \"bt3\" ;label = \"图中选择\" ;}"<br />            ":button {is_cancel = true ;key = \"bt4\" ;label = \"回前菜单\" ;}"<br />            "}"<br />            )<br />         )<br />   (setq        tmpf (xty-sys-makeFbylst<br />                "c:\\1.dcl"<br />                dcllst<br />                )<br />         )<br />   (setq dcl_id (load_dialog tmpf))<br />   (vl-file-delete tmpf)<br />   (aa)<br />   (unload_dialog dcl_id)<br />   )

x_s_s_1

虽然masterlong并没有给出实际的解决方案，但是他的提醒非常有用，我还是将最佳答案给masterlong兄，wzg356和院长应该不会有意见吧，如有意见，私发消息给我，我另行补偿，谢谢各位.