（急！！！）求助：对话框的嵌套

wwjuan1984

能不能帮我标一下在哪里修改？要改成什么样的？谢谢你们了

急死我了~~

ZZXXQQ

wwjuan1984

十分十分十分感谢你~~

 

孤鹰

ZZXXQQ 发表于 2006-6-11 23:36
两个对话框在一个文件中，就是c_paper和c_zdy两个对话框定义在一个文件c_paper.dcl中，而不是分别在c_paper ...

2. load_paper:dialog{
   
3. label="图纸选择对话框";
   
4. :text{
   
5. label="选择需要的图纸图幅，然后单击确定即可";
   
6. }
   
7. :boxed_row{
   
8. :radio_button{
   
9. label="A0";
   
10. key="A0";
    
11. value=1;
    
12. fixed_width=true;
    
13. width=5;
    
14. alignment=centered;
    
15. }
    
16. :radio_button{
    
17. label="A1";
    
18. key="A1";
    
19. value=0;
    
20. fixed_width=true;
    
21. width=5;
    
22. alignment=centered;
    
23. }
    
24. :radio_button{
    
25. label="A2";
    
26. key="A2";
    
27. value=0;
    
28. fixed_width=true;
    
29. width=5;
    
30. alignment=centered;
    
31. }
    
32. :radio_button{
    
33. label="A3";
    
34. key="A3";
    
35. value=0;
    
36. fixed_width=true;
    
37. width=5;
    
38. alignment=centered;
    
39. }
    
40. :radio_button{
    
41. label="A4";
    
42. key="A4";
    
43. value=0;
    
44. fixed_width=true;
    
45. width=5;
    
46. alignment=centered;
    
47. }
    
48. :radio_button{
    
49. label="A5";
    
50. key="A5";
    
51. value=0;
    
52. fixed_width=true;
    
53. width=5;
    
54. alignment=centered;
    
55. }
    
56. :radio_button{
    
57. label="自定义";
    
58. key="D";
    
59. value=0;
    
60. fixed_width=true;
    
61. width=5;
    
62. alignment=centered;
    
63. }
    
64. }
    
65. ok_only;
    
66. }
    
67. 
    
68. c_zdy:dialog{
    
69. label="自定义图纸对话框";
    
70. :text{
    
71. label="先输入数据，然后单击确定即可";
    
72. }
    
73. :boxed_row{
    
74. label="参数";
    
75. :edit_box{
    
76. label="长(Length)";
    
77. key="L";
    
78. fixed_width=true;
    
79. width=5;
    
80. alignment=centered;
    
81. }
    
82. :edit_box{
    
83. label="宽(Width)";
    
84. key="W";
    
85. fixed_width=true;
    
86. width=5;
    
87. alignment=centered;
    
88. }
    
89. }
    
90. ok_cancel;
    
91. }

load_paper:dialog{<br /> label="图纸选择对话框";<br /> :text{<br /> label="选择需要的图纸图幅，然后单击确定即可";<br /> }<br /> :boxed_row{<br /> :radio_button{<br /> label="A0";<br /> key="A0";<br /> value=1;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A1";<br /> key="A1";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A2";<br /> key="A2";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A3";<br /> key="A3";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A4";<br /> key="A4";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A5";<br /> key="A5";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="自定义";<br /> key="D";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> }<br /> ok_only;<br /> }<br /> <br /> c_zdy:dialog{<br /> label="自定义图纸对话框";<br /> :text{<br /> label="先输入数据，然后单击确定即可";<br /> }<br /> :boxed_row{<br /> label="参数";<br /> :edit_box{<br /> label="长(Length)";<br /> key="L";<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :edit_box{<br /> label="宽(Width)";<br /> key="W";<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> }<br /> ok_cancel;<br /> }

2. (defun c:load_paper(/ dcl_id j)
   
3.   (setq x 0 y 0 n1 0 n 0 R 0 r 0 d 0 a 0 a1 0 rj 0)
   
4.   (setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))
   
5.   (if(not(new_dialog"load_paper"dcl_id))(exit))
   
6.   (action_tile"A0""(data_manage0)")
   
7.   (action_tile"A1""(data_manage1)")
   
8.   (action_tile"A2""(data_manage2)")
   
9.   (action_tile"A3""(data_manage3)")
   
10.   (action_tile"A4""(data_manage4)")
    
11.   (action_tile"A5""(data_manage5)")
    
12.   (action_tile"D""(data_manage6)")
    
13.   (start_dialog)
    
14.   (unload_dialog dcl_id)
    
15.   (princ)
    
16.   (command"layer" "m" 0 "on" "" "")
    
17.   (command"rectang" pt1 pt2)
    
18.   (command"rectang" pt2 pt3)
    
19.   (command"layer" "m" 1 "c" 1 "" "")
    
20.   (command"rectang" pt4 pt5)
    
21.   (command"layer" "m" 0 "on" "" "")
    
22. )
    
23. (defun data_manage0()
    
24.   (setq pt1(list 0 0)
    
25. pt2(list -1180 840)
    
26. pt3(list -1140 832)
    
27. pt4(list 5 -5)
    
28. pt5(list -1195 845)
    
29.   )
    
30. )
    
31. (defun data_manage1()
    
32.   (setq pt1(list 0 0)
    
33. pt2(list -840 594)
    
34. pt3(list -800 586)
    
35. pt4(list 5 -5)
    
36. pt5(list -855 609)
    
37.   )
    
38. )
    
39. (defun data_manage2()
    
40.   (setq pt1(list 0 0)
    
41. pt2(list -594 420)
    
42. pt3(list -554 412)
    
43. pt4(list 5 -5)
    
44. pt5(list -609 435)
    
45.   )
    
46. )
    
47. (defun data_manage3()
    
48.   (setq pt1(list 0 0)
    
49. pt2(list -420 297)
    
50. pt3(list -380 292)
    
51. pt4(list 5 -5)
    
52. pt5(list -445 302)
    
53.   )
    
54. )
    
55. (defun data_manage4()
    
56.   (setq pt1(list 0 0)
    
57. pt2(list -210 297)
    
58. pt3(list -170 289)
    
59. pt4(list 5 -5)
    
60. pt5(list -235 302)
    
61.   )
    
62. )
    
63. (defun data_manage5()
    
64.   (setq pt1(list 0 0)
    
65. pt2(list -148 210)
    
66. pt3(list -108 202)
    
67. pt4(list 5 -5)
    
68. pt5(list -173 215)
    
69.   )
    
70. )
    
71. (defun data_manage6()
    
72. (if (new_dialog "c_zdy" dcl_id) (PROGN
    
73.   (action_tile"accept" "(getdata) (done_dialog 1)")
    
74.   (action_tile"cancel" "(done_dialog 0)")
    
75.   (setq what_next (start_dialog))
    
76. ))
    
77. )
    
78. (defun getdata()
    
79.   (setq L(atof(get_tile "L")))
    
80.   (setq W(atof(get_tile "W")))
    
81.   (setq pt1(list 0 0))
    
82.   (setq pt2(list(- L  W)))
    
83.   (setq pt3(list(- (- L 40) (- W 8))))
    
84.   (setq pt4(list 5 - 5))
    
85.   (setq pt5(list - (+ L 55) (+ W 5)))
    
86. )
    

(defun c:load_paper(/ dcl_id j)<br />   (setq x 0 y 0 n1 0 n 0 R 0 r 0 d 0 a 0 a1 0 rj 0)<br />   (setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))<br />   (if(not(new_dialog"load_paper"dcl_id))(exit))<br />   (action_tile"A0""(data_manage0)")<br />   (action_tile"A1""(data_manage1)")<br />   (action_tile"A2""(data_manage2)")<br />   (action_tile"A3""(data_manage3)")<br />   (action_tile"A4""(data_manage4)")<br />   (action_tile"A5""(data_manage5)")<br />   (action_tile"D""(data_manage6)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (princ)<br />   (command"layer" "m" 0 "on" "" "")<br />   (command"rectang" pt1 pt2)<br />   (command"rectang" pt2 pt3)<br />   (command"layer" "m" 1 "c" 1 "" "")<br />   (command"rectang" pt4 pt5)<br />   (command"layer" "m" 0 "on" "" "")<br /> )<br /> (defun data_manage0()<br />   (setq pt1(list 0 0)<br /> pt2(list -1180 840)<br /> pt3(list -1140 832)<br /> pt4(list 5 -5)<br /> pt5(list -1195 845)<br />   )<br /> )<br /> (defun data_manage1()<br />   (setq pt1(list 0 0)<br /> pt2(list -840 594)<br /> pt3(list -800 586)<br /> pt4(list 5 -5)<br /> pt5(list -855 609)<br />   )<br /> )<br /> (defun data_manage2()<br />   (setq pt1(list 0 0)<br /> pt2(list -594 420)<br /> pt3(list -554 412)<br /> pt4(list 5 -5)<br /> pt5(list -609 435)<br />   )<br /> )<br /> (defun data_manage3()<br />   (setq pt1(list 0 0)<br /> pt2(list -420 297)<br /> pt3(list -380 292)<br /> pt4(list 5 -5)<br /> pt5(list -445 302)<br />   )<br /> )<br /> (defun data_manage4()<br />   (setq pt1(list 0 0)<br /> pt2(list -210 297)<br /> pt3(list -170 289)<br /> pt4(list 5 -5)<br /> pt5(list -235 302)<br />   )<br /> )<br /> (defun data_manage5()<br />   (setq pt1(list 0 0)<br /> pt2(list -148 210)<br /> pt3(list -108 202)<br /> pt4(list 5 -5)<br /> pt5(list -173 215)<br />   )<br /> )<br /> (defun data_manage6()<br /> (if (new_dialog "c_zdy" dcl_id) (PROGN<br />   (action_tile"accept" "(getdata) (done_dialog 1)")<br />   (action_tile"cancel" "(done_dialog 0)")<br />   (setq what_next (start_dialog))<br /> ))<br /> ) <br /> (defun getdata()<br />   (setq L(atof(get_tile "L")))<br />   (setq W(atof(get_tile "W")))<br />   (setq pt1(list 0 0))<br />   (setq pt2(list(- L  W)))<br />   (setq pt3(list(- (- L 40) (- W 8))))<br />   (setq pt4(list 5 - 5))<br />   (setq pt5(list - (+ L 55) (+ W 5)))<br /> )<br />

大侠为什么我按你的该了后，其他都好，就那自定义的没有画出图形？ 打包成load_paper.vlx执行的

孤鹰

ZZXXQQ 发表于 2006-6-11 23:36
两个对话框在一个文件中，就是c_paper和c_zdy两个对话框定义在一个文件c_paper.dcl中，而不是分别在c_paper ...

2. load_paper:dialog{
   
3. label="图纸选择对话框";
   
4. :text{
   
5. label="选择需要的图纸图幅，然后单击确定即可";
   
6. }
   
7. :boxed_row{
   
8. :radio_button{
   
9. label="A0";
   
10. key="A0";
    
11. value=1;
    
12. fixed_width=true;
    
13. width=5;
    
14. alignment=centered;
    
15. }
    
16. :radio_button{
    
17. label="A1";
    
18. key="A1";
    
19. value=0;
    
20. fixed_width=true;
    
21. width=5;
    
22. alignment=centered;
    
23. }
    
24. :radio_button{
    
25. label="A2";
    
26. key="A2";
    
27. value=0;
    
28. fixed_width=true;
    
29. width=5;
    
30. alignment=centered;
    
31. }
    
32. :radio_button{
    
33. label="A3";
    
34. key="A3";
    
35. value=0;
    
36. fixed_width=true;
    
37. width=5;
    
38. alignment=centered;
    
39. }
    
40. :radio_button{
    
41. label="A4";
    
42. key="A4";
    
43. value=0;
    
44. fixed_width=true;
    
45. width=5;
    
46. alignment=centered;
    
47. }
    
48. :radio_button{
    
49. label="A5";
    
50. key="A5";
    
51. value=0;
    
52. fixed_width=true;
    
53. width=5;
    
54. alignment=centered;
    
55. }
    
56. :radio_button{
    
57. label="自定义";
    
58. key="D";
    
59. value=0;
    
60. fixed_width=true;
    
61. width=5;
    
62. alignment=centered;
    
63. }
    
64. }
    
65. ok_only;
    
66. }
    
67. 
    
68. c_zdy:dialog{
    
69. label="自定义图纸对话框";
    
70. :text{
    
71. label="先输入数据，然后单击确定即可";
    
72. }
    
73. :boxed_row{
    
74. label="参数";
    
75. :edit_box{
    
76. label="长(Length)";
    
77. key="L";
    
78. fixed_width=true;
    
79. width=5;
    
80. alignment=centered;
    
81. }
    
82. :edit_box{
    
83. label="宽(Width)";
    
84. key="W";
    
85. fixed_width=true;
    
86. width=5;
    
87. alignment=centered;
    
88. }
    
89. }
    
90. ok_cancel;
    
91. }

load_paper:dialog{<br /> label="图纸选择对话框";<br /> :text{<br /> label="选择需要的图纸图幅，然后单击确定即可";<br /> }<br /> :boxed_row{<br /> :radio_button{<br /> label="A0";<br /> key="A0";<br /> value=1;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A1";<br /> key="A1";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A2";<br /> key="A2";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A3";<br /> key="A3";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A4";<br /> key="A4";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="A5";<br /> key="A5";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :radio_button{<br /> label="自定义";<br /> key="D";<br /> value=0;<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> }<br /> ok_only;<br /> }<br /> <br /> c_zdy:dialog{<br /> label="自定义图纸对话框";<br /> :text{<br /> label="先输入数据，然后单击确定即可";<br /> }<br /> :boxed_row{<br /> label="参数";<br /> :edit_box{<br /> label="长(Length)";<br /> key="L";<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> :edit_box{<br /> label="宽(Width)";<br /> key="W";<br /> fixed_width=true;<br /> width=5;<br /> alignment=centered;<br /> }<br /> }<br /> ok_cancel;<br /> }

2. (defun c:load_paper(/ dcl_id j)
   
3.   (setq x 0 y 0 n1 0 n 0 R 0 r 0 d 0 a 0 a1 0 rj 0)
   
4.   (setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))
   
5.   (if(not(new_dialog"load_paper"dcl_id))(exit))
   
6.   (action_tile"A0""(data_manage0)")
   
7.   (action_tile"A1""(data_manage1)")
   
8.   (action_tile"A2""(data_manage2)")
   
9.   (action_tile"A3""(data_manage3)")
   
10.   (action_tile"A4""(data_manage4)")
    
11.   (action_tile"A5""(data_manage5)")
    
12.   (action_tile"D""(data_manage6)")
    
13.   (start_dialog)
    
14.   (unload_dialog dcl_id)
    
15.   (princ)
    
16.   (command"layer" "m" 0 "on" "" "")
    
17.   (command"rectang" pt1 pt2)
    
18.   (command"rectang" pt2 pt3)
    
19.   (command"layer" "m" 1 "c" 1 "" "")
    
20.   (command"rectang" pt4 pt5)
    
21.   (command"layer" "m" 0 "on" "" "")
    
22. )
    
23. (defun data_manage0()
    
24.   (setq pt1(list 0 0)
    
25. pt2(list -1180 840)
    
26. pt3(list -1140 832)
    
27. pt4(list 5 -5)
    
28. pt5(list -1195 845)
    
29.   )
    
30. )
    
31. (defun data_manage1()
    
32.   (setq pt1(list 0 0)
    
33. pt2(list -840 594)
    
34. pt3(list -800 586)
    
35. pt4(list 5 -5)
    
36. pt5(list -855 609)
    
37.   )
    
38. )
    
39. (defun data_manage2()
    
40.   (setq pt1(list 0 0)
    
41. pt2(list -594 420)
    
42. pt3(list -554 412)
    
43. pt4(list 5 -5)
    
44. pt5(list -609 435)
    
45.   )
    
46. )
    
47. (defun data_manage3()
    
48.   (setq pt1(list 0 0)
    
49. pt2(list -420 297)
    
50. pt3(list -380 292)
    
51. pt4(list 5 -5)
    
52. pt5(list -445 302)
    
53.   )
    
54. )
    
55. (defun data_manage4()
    
56.   (setq pt1(list 0 0)
    
57. pt2(list -210 297)
    
58. pt3(list -170 289)
    
59. pt4(list 5 -5)
    
60. pt5(list -235 302)
    
61.   )
    
62. )
    
63. (defun data_manage5()
    
64.   (setq pt1(list 0 0)
    
65. pt2(list -148 210)
    
66. pt3(list -108 202)
    
67. pt4(list 5 -5)
    
68. pt5(list -173 215)
    
69.   )
    
70. )
    
71. (defun data_manage6()
    
72. (if (new_dialog "c_zdy" dcl_id) (PROGN
    
73.   (action_tile"accept" "(getdata) (done_dialog 1)")
    
74.   (action_tile"cancel" "(done_dialog 0)")
    
75.   (setq what_next (start_dialog))
    
76. ))
    
77. 
    
78. )
    
79. (defun getdata()
    
80.   (setq L(atof(get_tile "L")))
    
81.   (setq W(atof(get_tile "W")))
    
82.   (setq pt1(list 0 0))
    
83.   (setq pt2(list(- L  W)))
    
84.   (setq pt3(list(- (- L 40) (- W 8))))
    
85.   (setq pt4(list 5 - 5))
    
86.   (setq pt5(list - (+ L 55) (+ W 5)))
    
87. )
    

(defun c:load_paper(/ dcl_id j)<br />   (setq x 0 y 0 n1 0 n 0 R 0 r 0 d 0 a 0 a1 0 rj 0)<br />   (setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))<br />   (if(not(new_dialog"load_paper"dcl_id))(exit))<br />   (action_tile"A0""(data_manage0)")<br />   (action_tile"A1""(data_manage1)")<br />   (action_tile"A2""(data_manage2)")<br />   (action_tile"A3""(data_manage3)")<br />   (action_tile"A4""(data_manage4)")<br />   (action_tile"A5""(data_manage5)")<br />   (action_tile"D""(data_manage6)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (princ)<br />   (command"layer" "m" 0 "on" "" "")<br />   (command"rectang" pt1 pt2)<br />   (command"rectang" pt2 pt3)<br />   (command"layer" "m" 1 "c" 1 "" "")<br />   (command"rectang" pt4 pt5)<br />   (command"layer" "m" 0 "on" "" "")<br /> )<br /> (defun data_manage0()<br />   (setq pt1(list 0 0)<br /> pt2(list -1180 840)<br /> pt3(list -1140 832)<br /> pt4(list 5 -5)<br /> pt5(list -1195 845)<br />   )<br /> )<br /> (defun data_manage1()<br />   (setq pt1(list 0 0)<br /> pt2(list -840 594)<br /> pt3(list -800 586)<br /> pt4(list 5 -5)<br /> pt5(list -855 609)<br />   )<br /> )<br /> (defun data_manage2()<br />   (setq pt1(list 0 0)<br /> pt2(list -594 420)<br /> pt3(list -554 412)<br /> pt4(list 5 -5)<br /> pt5(list -609 435)<br />   )<br /> )<br /> (defun data_manage3()<br />   (setq pt1(list 0 0)<br /> pt2(list -420 297)<br /> pt3(list -380 292)<br /> pt4(list 5 -5)<br /> pt5(list -445 302)<br />   )<br /> )<br /> (defun data_manage4()<br />   (setq pt1(list 0 0)<br /> pt2(list -210 297)<br /> pt3(list -170 289)<br /> pt4(list 5 -5)<br /> pt5(list -235 302)<br />   )<br /> )<br /> (defun data_manage5()<br />   (setq pt1(list 0 0)<br /> pt2(list -148 210)<br /> pt3(list -108 202)<br /> pt4(list 5 -5)<br /> pt5(list -173 215)<br />   )<br /> )<br /> (defun data_manage6()<br /> (if (new_dialog "c_zdy" dcl_id) (PROGN<br />   (action_tile"accept" "(getdata) (done_dialog 1)")<br />   (action_tile"cancel" "(done_dialog 0)")<br />   (setq what_next (start_dialog))<br /> ))<br /> <br /> ) <br /> (defun getdata()<br />   (setq L(atof(get_tile "L")))<br />   (setq W(atof(get_tile "W")))<br />   (setq pt1(list 0 0))<br />   (setq pt2(list(- L  W)))<br />   (setq pt3(list(- (- L 40) (- W 8))))<br />   (setq pt4(list 5 - 5))<br />   (setq pt5(list - (+ L 55) (+ W 5)))<br /> )<br />

为什么我在生成load-paper.vlx文件后运行，其他的都好，就那自定义的不绘图？怎么改呀

along_99

mark一下再好好学习，嵌套有点看不懂。