动态DCL页面如何实现左右两列或多列显示？

Kye

请教各位大侠，有很多数据，动态DCL页面一列显示不开，希望多列显示，图片为下面程序运行结果:boxed_column没有分成两列而还是两行？前一个程序为转为LISP前的DCL,请哪位能否提供个类似例子学习下，谢谢！

1. choice : dialog {label = "test" ;
   
2. 
   
3.                                                    :boxed_row {            
   
4.                                                                          :row    { //:boxed_column//:boxed_row
   
5. 
   
6. 
   
7.                                                                                         :edit_box { label="【位】";width=6;key="editpartname01";}
   
8.          
   
9. 
   
10.                                                                                         }
    
11.            
    
12.                                                                         }
    
13.                                                       spacer;
    
14. 
    
15.       
    
16.                                                      ok_cancel ;
    
17.                                        }

choice : dialog {label = "test" ;<br /> <br />                                                    :boxed_row {             <br />                                                                          :row    { //:boxed_column//:boxed_row<br /> <br /> <br />                                                                                         :edit_box { label="【位】";width=6;key="editpartname01";}<br />           <br /> <br />                                                                                         }<br />            <br />                                                                         }<br />                                                       spacer;<br /> <br />       <br />                                                      ok_cancel ;<br />                                        }

1. (defun c:test  (/ CAVLST CAVLST1 EDITPARTLST01 FNAME FN DCL_ID RESULT)
   
2.   
   
3. (setq Cavlst '( "a0" "a1" "a2" "a3""a4" "a5" "a6"))
   
4.   
   
5. (setq Cavlst1 '( ("a0" "a1" "a2" "a3")("a4" "a5" "a6" )));_将Cavlst分成两个表
   
6. 
   
7. 
   
8.   (setq editpartlst01 '(("a1c1"); "a1c2" "a1c3")
   
9.           ("a2c1" "a2c2"); "a2c3")
   
10.           ("a3c1" "a3c2" "a3c3")
    
11.                )
    
12. )
    
13. 
    
14.   
    
15. 
    
16. ;__________________________________________________________________________
    
17. (setq fname (vl-filename-mktemp nil nil ".dcl"))
    
18. (setq fn (open fname "w"))
    
19. 
    
20. 
    
21. 
    
22.                  (write-line "choice : dialog {label = \"test\" ;" fn)
    
23. 
    
24. (foreach Cavlst2 Cavlst1 (if Cavlst2
    
25.             (progn  (write-line "     :boxed_column  {             " fn)
    
26.           (foreach n Cavlst2 (if n (progn
    
27.   
    
28.                   (write-line "               :row{ //:boxed_column//:boxed_row" fn)
    
29.                  (write-line (strcat "        :edit_box { label=" (addw (strcat n  "【位】"))";width=6;key="(addw (strcat "editpartname01" n) ) ";}" )fn)
    
30.                  (write-line "                 }" fn)
    
31. 
    
32.                 );_progn
    
33.                    );_if
    
34.             );_内层foreach
    
35.          
    
36.             (write-line "             }" fn)
    
37.           );_progn
    
38.         );_if
    
39.   );_外层foreach
    
40. 
    
41.                 (write-line "      ok_cancel ;" fn)
    
42.                 (write-line "    }" fn)
    
43. 
    
44. 
    
45. (close fn)
    
46. (setq fn (open fname "r"))
    
47. (setq dcl_id (load_dialog fname))
    
48. ;____________________________________________________________________________
    
49.   
    
50.   
    
51.   
    
52.   (if (not (new_dialog "choice" dcl_id))
    
53.     (exit)
    
54.   )
    
55. 
    
56. 
    
57.   (foreach n Cavlst (if n
    
58.           (set_tile (strcat "editpartname01" n) (nth 0 (nth 0 editpartlst01)) )
    
59.          )     
    
60.             
    
61.   )         
    
62. 
    
63.   (action_tile "accept" "(done_dialog 1)")
    
64.   (action_tile "cancel" "(done_dialog 0)")
    
65.   (setq result (start_dialog))
    
66.   (unload_dialog dcl_id)
    
67. 
    
68. 
    
69.   (if (= 1 result)
    
70.     (alert
    
71.       (strcat "NIHAO! ")
    
72.     )
    
73.   )
    
74.   ;; do your mojo here
    
75.   (princ)
    
76. )
    
77. (princ "\n *****c: test ()** ")
    
78. 
    
79. 
    
80. (defun addw(a / );_将\加到字符两侧
    
81. 
    
82. (strcat "\"" a "\"")
    
83. 
    
84. )
    

(defun c:test  (/ CAVLST CAVLST1 EDITPARTLST01 FNAME FN DCL_ID RESULT)<br />   <br /> (setq Cavlst '( "a0" "a1" "a2" "a3""a4" "a5" "a6"))<br />   <br /> (setq Cavlst1 '( ("a0" "a1" "a2" "a3")("a4" "a5" "a6" )));_将Cavlst分成两个表<br /> <br /> <br />   (setq editpartlst01 '(("a1c1"); "a1c2" "a1c3")<br />           ("a2c1" "a2c2"); "a2c3")<br />           ("a3c1" "a3c2" "a3c3")<br />                )<br /> )<br /> <br />   <br /> <br /> ;__________________________________________________________________________<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open fname "w"))<br /> <br /> <br /> <br />                  (write-line "choice : dialog {label = \"test\" ;" fn)<br /> <br /> (foreach Cavlst2 Cavlst1 (if Cavlst2<br />             (progn  (write-line "     :boxed_column  {             " fn)<br />           (foreach n Cavlst2 (if n (progn <br />   <br />                   (write-line "               :row{ //:boxed_column//:boxed_row" fn)<br />                  (write-line (strcat "        :edit_box { label=" (addw (strcat n  "【位】"))";width=6;key="(addw (strcat "editpartname01" n) ) ";}" )fn)<br />                  (write-line "                 }" fn)<br /> <br />                 );_progn<br />                    );_if<br />             );_内层foreach<br />           <br />             (write-line "             }" fn)<br />           );_progn<br />         );_if<br />   );_外层foreach<br /> <br />                 (write-line "      ok_cancel ;" fn)<br />                 (write-line "    }" fn)<br /> <br /> <br /> (close fn)<br /> (setq fn (open fname "r"))<br /> (setq dcl_id (load_dialog fname))<br /> ;____________________________________________________________________________<br />   <br />   <br />   <br />   (if (not (new_dialog "choice" dcl_id))<br />     (exit)<br />   )<br /> <br /> <br />   (foreach n Cavlst (if n<br />           (set_tile (strcat "editpartname01" n) (nth 0 (nth 0 editpartlst01)) )<br />          )     <br />             <br />   )          <br /> <br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq result (start_dialog))<br />   (unload_dialog dcl_id)<br /> <br /> <br />   (if (= 1 result)<br />     (alert<br />       (strcat "NIHAO! ")<br />     )<br />   )<br />   ;; do your mojo here<br />   (princ)<br /> )<br /> (princ "\n *****c: test ()** ")<br /> <br /> <br /> (defun addw(a / );_将\加到字符两侧<br /> <br /> (strcat "\"" a "\"")<br /> <br /> )<br />

ZZXXQQ

2. (defun c:test  (/ CAVLST CAVLST1 EDITPARTLST01 FNAME FN DCL_ID RESULT)
   
3.   (setq Cavlst '( "a0" "a1" "a2" "a3""a4" "a5" "a6"))
   
4.   (setq Cavlst1 '( ("a0" "a1" "a2" "a3")("a4" "a5" "a6" )));_将Cavlst分成两个表
   
5.   (setq editpartlst01 '(("a1c1"); "a1c2" "a1c3")
   
6.           ("a2c1" "a2c2"); "a2c3")
   
7.           ("a3c1" "a3c2" "a3c3")
   
8.                )
   
9.   )
   
10. ;__________________________________________________________________________
    
11. (setq fname (vl-filename-mktemp nil nil ".dcl"))
    
12. (setq fn (open fname "w"))
    
13. (write-line "choice:dialog {label="test" ;" fn)
    
14. (write-line " :row{" fn)
    
15. (foreach Cavlst2 Cavlst1
    
16.   (if Cavlst2 (progn
    
17.    (write-line "  :boxed_column{" fn)
    
18.     (foreach n Cavlst2
    
19.      (if n (progn
    
20.       (write-line "   :row{ //:boxed_column//:boxed_row" fn)
    
21.       (write-line
    
22.        (strcat "    :edit_box {label=" (addw (strcat n  "【位】"))
    
23.        ";width=6;key="(addw (strcat "editpartname01" n) ) ";}" )fn)
    
24.       (write-line "   }" fn)
    
25.      ));_if
    
26.     );_内层foreach
    
27.     (write-line "  }" fn)
    
28.   ));_if
    
29. );_外层foreach
    
30. (write-line " }" fn)
    
31. (write-line " ok_cancel;" fn)
    
32. (write-line "}" fn)
    
33. (close fn)
    
34. (setq fn (open fname "r"))
    
35. (setq dcl_id (load_dialog fname))
    
36. ;____________________________________________________________________________
    
37.   (if (not (new_dialog "choice" dcl_id)) (exit))
    
38.   (foreach n Cavlst
    
39.    (if n (set_tile (strcat "editpartname01" n) (caar editpartlst01)))   
    
40.   )
    
41.   (action_tile "accept" "(done_dialog 1)")
    
42.   (action_tile "cancel" "(done_dialog 0)")
    
43.   (setq result (start_dialog))
    
44.   (unload_dialog dcl_id)
    
45.   (if (= 1 result) (alert (strcat "NIHAO! ")))
    
46.   ;; do your mojo here
    
47.   (princ)
    
48. )
    
49. (princ "\n *****c: test ()** ")
    
50. (defun addw(a / );_将\加到字符两侧
    
51. (strcat """ a """)
    
52. )
    

(defun c:test  (/ CAVLST CAVLST1 EDITPARTLST01 FNAME FN DCL_ID RESULT)<br />   (setq Cavlst '( "a0" "a1" "a2" "a3""a4" "a5" "a6"))<br />   (setq Cavlst1 '( ("a0" "a1" "a2" "a3")("a4" "a5" "a6" )));_将Cavlst分成两个表<br />   (setq editpartlst01 '(("a1c1"); "a1c2" "a1c3")<br />           ("a2c1" "a2c2"); "a2c3")<br />           ("a3c1" "a3c2" "a3c3")<br />                )<br />   )<br /> ;__________________________________________________________________________<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open fname "w"))<br /> (write-line "choice:dialog {label="test" ;" fn)<br /> (write-line " :row{" fn)<br /> (foreach Cavlst2 Cavlst1<br />   (if Cavlst2 (progn<br />    (write-line "  :boxed_column{" fn)<br />     (foreach n Cavlst2<br />      (if n (progn <br />       (write-line "   :row{ //:boxed_column//:boxed_row" fn)<br />       (write-line<br />        (strcat "    :edit_box {label=" (addw (strcat n  "【位】"))<br />        ";width=6;key="(addw (strcat "editpartname01" n) ) ";}" )fn)<br />       (write-line "   }" fn)<br />      ));_if<br />     );_内层foreach<br />     (write-line "  }" fn)<br />   ));_if<br /> );_外层foreach<br /> (write-line " }" fn)<br /> (write-line " ok_cancel;" fn)<br /> (write-line "}" fn)<br /> (close fn)<br /> (setq fn (open fname "r"))<br /> (setq dcl_id (load_dialog fname))<br /> ;____________________________________________________________________________<br />   (if (not (new_dialog "choice" dcl_id)) (exit))<br />   (foreach n Cavlst<br />    (if n (set_tile (strcat "editpartname01" n) (caar editpartlst01)))    <br />   )<br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (setq result (start_dialog))<br />   (unload_dialog dcl_id)<br />   (if (= 1 result) (alert (strcat "NIHAO! ")))<br />   ;; do your mojo here<br />   (princ)<br /> )<br /> (princ "\n *****c: test ()** ")<br /> (defun addw(a / );_将\加到字符两侧<br /> (strcat """ a """)<br /> )<br />

Kye

ZZXXQQ 发表于 2014-9-20 08:37

来明经学习Z版的程序最多，能得到Z版的亲自指导，深感荣幸，谢谢Z版