谁帮忙给改下程序（网上找的）在选自定义时出错，怎么改？

孤鹰

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.   (action_tile "L" (setq L atof(get_tile"L")))
    
81.   (action_tile "W" (setq W atof(get_tile"W")))
    
82. 
    
83.   (setq pt1(list 0 0))
    
84.   (setq pt2(list(- L  W)))
    
85.   (setq pt3(list(- (- L 40) (- W 8))))
    
86.   (setq pt4(list 5 - 5))
    
87.   (setq pt5(list - (+ L 55) (+ W 5)))e
    
88. )
    
89. 
    
90. 
    
91. 
    
92. load_paper:dialog{
    
93. label="图纸选择对话框";
    
94. :text{
    
95. label="选择需要的图纸图幅，然后单击确定即可";
    
96. }
    
97. :boxed_row{
    
98. :radio_button{
    
99. label="A0";
    
100. key="A0";
     
101. value=1;
     
102. fixed_width=true;
     
103. width=5;
     
104. alignment=centered;
     
105. }
     
106. :radio_button{
     
107. label="A1";
     
108. key="A1";
     
109. value=0;
     
110. fixed_width=true;
     
111. width=5;
     
112. alignment=centered;
     
113. }
     
114. :radio_button{
     
115. label="A2";
     
116. key="A2";
     
117. value=0;
     
118. fixed_width=true;
     
119. width=5;
     
120. alignment=centered;
     
121. }
     
122. :radio_button{
     
123. label="A3";
     
124. key="A3";
     
125. value=0;
     
126. fixed_width=true;
     
127. width=5;
     
128. alignment=centered;
     
129. }
     
130. :radio_button{
     
131. label="A4";
     
132. key="A4";
     
133. value=0;
     
134. fixed_width=true;
     
135. width=5;
     
136. alignment=centered;
     
137. }
     
138. :radio_button{
     
139. label="A5";
     
140. key="A5";
     
141. value=0;
     
142. fixed_width=true;
     
143. width=5;
     
144. alignment=centered;
     
145. }
     
146. :radio_button{
     
147. label="自定义";
     
148. key="D";
     
149. value=0;
     
150. fixed_width=true;
     
151. width=5;
     
152. alignment=centered;
     
153. }
     
154. }
     
155. ok_only;
     
156. }
     
157. 
     
158. c_zdy:dialog{
     
159. label="自定义图纸对话框";
     
160. :text{
     
161. label="先输入数据，然后单击确定即可";
     
162. }
     
163. :boxed_row{
     
164. label="参数";
     
165. :edit_box{
     
166. label="长(Length)";
     
167. key="L";
     
168. fixed_width=true;
     
169. width=5;
     
170. alignment=centered;
     
171. }
     
172. :edit_box{
     
173. label="宽(Width)";
     
174. key="W";
     
175. fixed_width=true;
     
176. width=5;
     
177. alignment=centered;
     
178. }
     
179. }
     
180. ok_cancel;
     
181. }

(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 />   (action_tile "L" (setq L atof(get_tile"L")))<br />   (action_tile "W" (setq W atof(get_tile"W")))<br /> <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)))e<br /> )<br /> <br /> <br /> <br /> 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 /> }

在生成load_paper.vlx 文件后，不能画图

叮咚

(setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))


这一句，改成    (setq dcl_id(load_dialog"load_paper.dcl"))你再试试

孤鹰

叮咚 发表于 2012-5-27 18:29
(setq dcl_id(load_dialog"G:/大论文/load_paper.dcl"))

还不行，自定义那还没效果

叮咚

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

  (setq pt1(list 0 0))
  (setq pt2 (list (- 0 L)  W))
  (setq pt3 (list (- 40 L) (- W 8)))
  (setq pt4(list 5 -5))
  (setq pt5(list (- 0 (+ L 55)) (+ W 5)))
)

yxh1202

谢谢你们。能改下，类似CASS中绘制标准图幅和任意图幅的好吗