【求助】？？？两个DCL如何连接？？？

429014673

              （1）                       （2）
如上图，如何点图1"HELP"就去取图2的届面，当点“返回”时就回到图1届面。

1. 
   
2. (defun c:1 ()
   
3.        (setvar "cmdecho" 0)
   
4.        (initget 6)
   
5.        (setq dcl_id (load_dialog "ok" ))
   
6.        (new_dialog "cd" dcl_id)
   
7.        (action_tile "bb1" "(done_dialog 1)" )
   
8.        (action_tile "bb2" "(done_dialog 2)" )
   
9.        (setq dd (start_dialog))
   
10.        (cond
    
11.               ((= dd 1) (C:XXX))
    
12.               ((= dd 2) (C:XXXX))
    
13. (t (princ))));end defun
    
14. 
    

<br /> (defun c:1 ()<br />        (setvar "cmdecho" 0)<br />        (initget 6)<br />        (setq dcl_id (load_dialog "ok" ))<br />        (new_dialog "cd" dcl_id)<br />        (action_tile "bb1" "(done_dialog 1)" )<br />        (action_tile "bb2" "(done_dialog 2)" )<br />        (setq dd (start_dialog))<br />        (cond<br />               ((= dd 1) (C:XXX))<br />               ((= dd 2) (C:XXXX))<br /> (t (princ))));end defun<br /> <br />

1. 
   
2. cd:dialog {
   
3.     label = "编辑" ;
   
4.     :spacer {
   
5.         height = 0.5 ;
   
6.     }
   
7.     :row {
   
8.         label = "编辑" ;
   
9.         :column {
   
10.             :button {
    
11.                 alignment = centered ;
    
12.                 fixed_width = true ;
    
13.                 key = "bb1" ;
    
14.                 label = "XX" ;
    
15.                 width = 10 ;
    
16.             }
    
17.             :button {
    
18.                 alignment = centered ;
    
19.                 fixed_width = true ;
    
20.                 key = "bb2" ;
    
21.                 label = "XXX" ;
    
22.                 width = 10 ;
    
23.             }
    
24.             :spacer {
    
25.                 height = 0.2 ;
    
26.             }
    
27.         }
    
28.     }
    
29.     :spacer {
    
30.         height = 0.2 ;
    
31.     }
    
32.     :spacer {
    
33.         height = 0.2 ;
    
34.     }
    
35.     :row {
    
36.         :button {
    
37.             alignment = right ;
    
38.             fixed_width = true ;
    
39.             is_cancel = true ;
    
40.             key = "ORDER1" ;
    
41.             label = "HELP" ;
    
42.             width = 10 ;
    
43.         }
    
44.         :button {
    
45.             label = "关闭" ;
    
46.             key = "cancel" ;
    
47.             is_cancel = true ;
    
48.             width = 10 ;
    
49.             fixed_width = true ;
    
50.             alignment = right ;
    
51.         }
    
52.     }
    
53. }
    
54. 
    
55. cdd:dialog {
    
56.     label = "HELP" ;
    
57.     :spacer {
    
58.         height = 0.5 ;
    
59.     }
    
60.     :text {
    
61.         label = "DSFDGTG" ;
    
62.     }
    
63.     :text {
    
64.         label = "ASDFDF" ;
    
65.     }
    
66.     :spacer {
    
67.         height = 0.2 ;
    
68.     }
    
69.     :row {
    
70.         :button {
    
71.             alignment = right ;
    
72.             fixed_width = true ;
    
73.             is_cancel = true ;
    
74.             key = "cancel" ;
    
75.             label = "返回" ;
    
76.             width = 10 ;
    
77.         }
    
78.     }
    
79. }
    
80. 
    

<br /> cd:dialog {<br />     label = "编辑" ;<br />     :spacer {<br />         height = 0.5 ;<br />     }<br />     :row {<br />         label = "编辑" ;<br />         :column {<br />             :button {<br />                 alignment = centered ;<br />                 fixed_width = true ;<br />                 key = "bb1" ;<br />                 label = "XX" ;<br />                 width = 10 ;<br />             }<br />             :button {<br />                 alignment = centered ;<br />                 fixed_width = true ;<br />                 key = "bb2" ;<br />                 label = "XXX" ;<br />                 width = 10 ;<br />             }<br />             :spacer {<br />                 height = 0.2 ;<br />             }<br />         }<br />     }<br />     :spacer {<br />         height = 0.2 ;<br />     }<br />     :spacer {<br />         height = 0.2 ;<br />     }<br />     :row {<br />         :button {<br />             alignment = right ;<br />             fixed_width = true ;<br />             is_cancel = true ;<br />             key = "ORDER1" ;<br />             label = "HELP" ;<br />             width = 10 ;<br />         }<br />         :button {<br />             label = "关闭" ;<br />             key = "cancel" ;<br />             is_cancel = true ;<br />             width = 10 ;<br />             fixed_width = true ;<br />             alignment = right ;<br />         }<br />     }<br /> }<br /> <br /> cdd:dialog {<br />     label = "HELP" ;<br />     :spacer {<br />         height = 0.5 ;<br />     }<br />     :text {<br />         label = "DSFDGTG" ;<br />     }<br />     :text {<br />         label = "ASDFDF" ;<br />     }<br />     :spacer {<br />         height = 0.2 ;<br />     }<br />     :row {<br />         :button {<br />             alignment = right ;<br />             fixed_width = true ;<br />             is_cancel = true ;<br />             key = "cancel" ;<br />             label = "返回" ;<br />             width = 10 ;<br />         }<br />     }<br /> }<br /> <br />

CTC

呵呵，这个我也想学习下。。。高手帮忙呀，。。

langjs

我是这样做的，可能其他老大有更好的办法吧

如果第二个对话框有交互操作，采用的方法是关闭第一个对话框，打开第第二个，关闭第二个，再打开第一个。做个循环就可以，例子：
(defun c:qq (/ dcl_id dd uuu)
  (setvar "cmdecho" 0)
  (setq uuu 888)
  (while (= uuu 888)
    (initget 6)
    (setq dcl_id (load_dialog "ok"))
    (new_dialog "cd" dcl_id)
    (action_tile "bb1" "(done_dialog 1)")
    (action_tile "bb2" "(done_dialog 2)")
    (action_tile "ORDER1" "(done_dialog 3)")
    (setq dd (start_dialog))
    (cond
      ((= dd 3)
        (zzz)
      )
      (t
        (setq uuu 999)
      )
    )
    (cond
      ((= dd 1)
        (xxx)
      )
      ((= dd 2)
        (xxxx)
      )
      (t
        (princ)
      )
    )
  )
  (princ)
)
(defun zzz()
  (alert "\nssssssssssssssssssssssss")
)




如果第二个对话框仅仅是alert警告帮助之类的没有交互操作的对框框，采用的方法是直接弹出就可以了
（先把你的对话框 key = "ORDER1" 按钮的  is_cancel = true ;一句去掉，我说怎么一点help按钮就关闭对话框呢！ ）例子：
(defun c:qq (/ dcl_id dd)
  (setvar "cmdecho" 0)
  (initget 6)
  (setq dcl_id (load_dialog "ok"))
  (new_dialog "cd" dcl_id)
  (action_tile "bb1" "(done_dialog 1)")
  (action_tile "bb2" "(done_dialog 2)")
  (action_tile "ORDER1" "(zzz ) ")
  (setq dd (start_dialog))
  (cond
    ((= dd 1)
      (xxx)
    )
    ((= dd 2)
      (xxxx)
    )
    (t
      (princ)
    )
  )
  (princ)
)
(defun zzz ()
  (alert "\nssssssssssssssssssssssss")
)

429014673

langjs 发表于 2012-3-20 00:18
我是这样做的，可能其他老大有更好的办法吧

如果第二个对话框有交互操作，采用的方法是关闭第一个对话框 ...

第一种情况，但不知为什么当我按ESC时，退不出程序。

1993063

看看这个吧