请求调试，希望能像下面程序一样，按参数化画出型钢的顶视图、侧视图

cxs259

请求调试，希望能像下面程序一样，按参数化画出型钢的顶视图、侧视图

(defun C:ibeam ()
;设置值
  (setq ht (getreal "\n梁的高度： "))
  (setq wi (getreal "\n梁的宽度： "))
  (cond
    ((< wi (* 0.5 ht)) (setq wi (* 0.5 ht)))
    ((> wi (* 0.8 ht)) (setq wi (* 0.8 ht)))
  )
  (setq ft (getreal "\n突缘厚度： "))
  (cond
    ((< ft (* 0.05 ht)) (setq ft (* 0.05 ht)))
    ((> ft (* 0.15 ht)) (setq ft (* 0.15 ht)))
  )
  (setq wt (getreal "\n腹板厚度： "))
  (cond
    ((< wt (* 0.1 wi)) (setq wt (* 0.1 wi)))
    ((> wt (* 0.2 wi)) (setq wt (* 0.2 wi)))
  )
  (cond
    ((<= ht 4.0) (setq rad 0.125))
    (T (setq rad 0.5))
  )
  (if  (< ft 0.15) (setq rad (* 0.8 ft)))
; 计算梁的角点
  (setq p1 (getpoint "\n左下角： "))
  (setq l1 (/ (- wi wt) 2))
  (setq l2 (- ht (* ft 2.0)))
  (setq p2 (polar p1 0 wi))
  (setq p3 (polar p2 (/ pi 2.0) ft))
  (setq p4 (polar p3 pi l1))
  (setq p5 (polar p4 (/ pi 2.0) l2))
  (setq p6 (polar p5 0 l1))
  (setq p7 (polar p6 (/ pi 2.0) ft))
  (setq p8 (polar p7 pi wi))
  (setq p9 (polar p8 (+ pi (/ pi 2.0)) ft))
  (setq p10 (polar p9 0 l1))
  (setq p11 (polar p10 (+ pi (/ pi 2.0)) l2))
  (setq p12 (polar p11 pi l1))
; 绘制梁的轮廓
  (command "pline" p2 p3 p4 p5 p6 p7 "")
  (command "fillet" "r" rad "fillet" "polyline" "L")
  (command "pline" p8 p9 p10 p11 p12 p1 "")
  (command "fillet" "polyline" "L")
  (command "line" p1 p2 "")
  (command "line" p7 p8 "")
  (redraw) (princ)
)

diablobo

这个，用2006以上的版本中的“动态块”就可以实现了

小妹丁

我现在用不到了，谁有用就拿去，数据肯定没错：
工字钢

2. (defun c:gzg ()
3.   (setq GX (STRCASE (getstring "\n工字钢型号(30b):") T))
4.   (setq osm (getvar "osmode"))
5.   (setq cmd (getvar "cmdecho"))
6.   (setvar "cmdecho" 0)
7.   (setvar "osmode" 0)
8.   (cond
9.     ((= GX "20a")
10.      (setq H1 200)   ;工字钢高度mm
11.      (setq BG 100)   ;工字钢宽度mm
12.      (setq DG 7.0)   ;工字钢腰厚度mm
13.      (SETQ F4 35.578)   ;工字钢截面面积<cm2>
14.      (SETQ I4 2370)   ;工字钢惯性矩I<cm4>
15.      (SETQ GZZ 27.929)   ;工字钢理论重量KG/M
16.      (SETQ GT 11.4
17.     R0 9.0
18.     R1 4.5
19.      )
20.     )
21.     ((= GX "20b")
22.      (setq H1 200)   ;工字钢高度mm
23.      (setq BG 102)   ;工字钢宽度mm
24.      (setq DG 9.0)   ;工字钢腰厚度mm
25.      (SETQ F4 39.578)   ;工字钢截面面积<cm2>
26.      (SETQ I4 2500)   ;工字钢惯性矩I<cm4>
27.      (SETQ GZZ 31.069)   ;工字钢理论重量KG/M
28.      (SETQ GT 11.4
29.     R0 9.0
30.     R1 4.5
31.      )
32.     )
33.     ((= GX "22a")
34.      (setq H1 220)   ;工字钢高度mm
35.      (setq BG 110)   ;工字钢宽度mm
36.      (setq DG 7.5)   ;工字钢腰厚度mm
37.      (SETQ F4 42.128)   ;工字钢截面面积<cm2>
38.      (SETQ I4 3400)   ;工字钢惯性矩I<cm4>
39.      (SETQ GZZ 33.07)   ;工字钢理论重量KG/M
40.      (SETQ GT 12.3
41.     R0 9.5
42.     R1 4.8
43.      )
44.     )
45.     ((= GX "22b")
46.      (setq H1 220)   ;工字钢高度mm
47.      (setq BG 112)   ;工字钢宽度mm
48.      (setq DG 9.5)   ;工字钢腰厚度mm
49.      (SETQ F4 46.528)   ;工字钢截面面积<cm2>
50.      (SETQ I4 3570)   ;工字钢惯性矩I<cm4>
51.      (SETQ GZZ 36.524)   ;工字钢理论重量KG/M
52.      (SETQ GT 11.4
53.     R0 9.0
54.     R1 4.5
55.      )
56.     )
57.     ((= GX "25a")
58.      (setq H1 250)   ;工字钢高度mm
59.      (setq BG 116)   ;工字钢宽度mm
60.      (setq DG 8.0)   ;工字钢腰厚度mm
61.      (SETQ F4 48.541)   ;工字钢截面面积<cm2>
62.      (SETQ I4 5020)   ;工字钢惯性矩I<cm4>
63.      (SETQ GZZ 38.105)   ;工字钢理论重量KG/M
64.      (SETQ GT 13
65.     R0 10.0
66.     R1 5
67.      )
68.     )
69.     ((= GX "25b")
70.      (setq H1 250)   ;工字钢高度mm
71.      (setq BG 118)   ;工字钢宽度mm
72.      (setq DG 10.0)   ;工字钢腰厚度mm
73.      (SETQ F4 53.541)   ;工字钢截面面积<cm2>
74.      (SETQ I4 5280)   ;工字钢惯性矩I<cm4>
75.      (SETQ GZZ 42.03)   ;工字钢理论重量KG/M
76.      (SETQ GT 13
77.     R0 10.0
78.     R1 5
79.      )
80.     )
81.     ((= GX "28a")
82.      (setq H1 280)   ;工字钢高度mm
83.      (setq BG 122)   ;工字钢宽度mm
84.      (setq DG 8.5)   ;工字钢腰厚度mm
85.      (SETQ F4 55.404)   ;工字钢截面面积<cm2>
86.      (SETQ I4 7110)   ;工字钢惯性矩I<cm4>
87.      (SETQ GZZ 43.492)   ;工字钢理论重量KG/M
88.      (SETQ GT 13.7
89.     R0 10.5
90.     R1 5.3
91.      )
92.     )
93.     ((= GX "28b")
94.      (setq H1 280)   ;工字钢高度mm
95.      (setq BG 124)   ;工字钢宽度mm
96.      (setq DG 10.5)   ;工字钢腰厚度mm
97.      (SETQ F4 61.004)   ;工字钢截面面积<cm2>
98.      (SETQ I4 7480)   ;工字钢惯性矩I<cm4>
99.      (SETQ GZZ 47.888)   ;工字钢理论重量KG/M
100.      (SETQ GT 13.7
101.     R0 10.5
102.     R1 5.3
103.      )
104.     )
105.     ((= GX "32a")
106.      (setq H1 320)   ;工字钢高度mm
107.      (setq BG 130)   ;工字钢宽度mm
108.      (setq DG 9.5)   ;工字钢腰厚度mm
109.      (SETQ F4 67.156)   ;工字钢截面面积<cm2>
110.      (SETQ I4 11100)   ;工字钢惯性矩I<cm4>
111.      (SETQ GZZ 52.717)   ;工字钢理论重量KG/M
112.      (SETQ GT 15
113.     R0 11.5
114.     R1 5.8
115.      )
116.     )
117.     ((= GX "32b")
118.      (setq H1 320)   ;工字钢高度mm
119.      (setq BG 132)   ;工字钢宽度mm
120.      (setq DG 11.5)   ;工字钢腰厚度mm
121.      (SETQ F4 73.556)   ;工字钢截面面积<cm2>
122.      (SETQ I4 11500)   ;工字钢惯性矩I<cm4>
123.      (SETQ GZZ 57.741)   ;工字钢理论重量KG/M
124.      (SETQ GT 15
125.     R0 11.5
126.     R1 5.8
127.      )
128.     )
129.     ((= GX "32c")
130.      (setq H1 320)   ;工字钢高度mm
131.      (setq BG 134)   ;工字钢宽度mm
132.      (setq DG 13.5)   ;工字钢腰厚度mm
133.      (SETQ F4 79.956)   ;工字钢截面面积<cm2>
134.      (SETQ I4 12200)   ;工字钢惯性矩I<cm4>
135.      (SETQ GZZ 62.765)   ;工字钢理论重量KG/M
136.      (SETQ GT 15
137.     R0 11.5
138.     R1 5.8
139.      )
140.     )
141.     ((= GX "36a")
142.      (setq H1 360)   ;工字钢高度mm
143.      (setq BG 136)   ;工字钢宽度mm
144.      (setq DG 7.0)   ;工字钢腰厚度mm
145.      (SETQ F4 76.48)   ;工字钢截面面积<cm2>
146.      (SETQ I4 15800)   ;工字钢惯性矩I<cm4>
147.      (SETQ GZZ 60.037)   ;工字钢理论重量KG/M
148.      (SETQ GT 15.8
149.     R0 12
150.     R1 6
151.      )
152.     )
153.     ((= GX "36b")
154.      (setq H1 360)   ;工字钢高度mm
155.      (setq BG 138)   ;工字钢宽度mm
156.      (setq DG 12.0)   ;工字钢腰厚度mm
157.      (SETQ F4 83.68)   ;工字钢截面面积<cm2>
158.      (SETQ I4 16500)   ;工字钢惯性矩I<cm4>
159.      (SETQ GZZ 65.689)   ;工字钢理论重量KG/M
160.      (SETQ GT 15.8
161.     R0 12
162.     R1 6
163.      )
164.     )
165.     ((= GX "36c")
166.      (setq H1 360)   ;工字钢高度mm
167.      (setq BG 140)   ;工字钢宽度mm
168.      (setq DG 14.0)   ;工字钢腰厚度mm
169.      (SETQ F4 90.88)   ;工字钢截面面积<cm2>
170.      (SETQ I4 17300)   ;工字钢惯性矩I<cm4>
171.      (SETQ GZZ 71.341)   ;工字钢理论重量KG/M
172.      (SETQ GT 15.8
173.     R0 12
174.     R1 6
175.      )
176.     )
177.     ((= GX "40a")
178.      (setq H1 400)   ;工字钢高度mm
179.      (setq BG 142)   ;工字钢宽度mm
180.      (setq DG 10.5)   ;工字钢腰厚度mm
181.      (SETQ F4 86.112)   ;工字钢截面面积<cm2>
182.      (SETQ I4 21700)   ;工字钢惯性矩I<cm4>
183.      (SETQ GZZ 67.598)   ;工字钢理论重量KG/M
184.      (SETQ GT 16.5
185.     R0 12.5
186.     R1 6.3
187.      )
188.     )
189.     ((= GX "40b")
190.      (setq H1 400)   ;工字钢高度mm
191.      (setq BG 144)   ;工字钢宽度mm
192.      (setq DG 12.5)   ;工字钢腰厚度mm
193.      (SETQ F4 94.112)   ;工字钢截面面积<cm2>
194.      (SETQ I4 22800)   ;工字钢惯性矩I<cm4>
195.      (SETQ GZZ 73.878)   ;工字钢理论重量KG/M
196.      (SETQ GT 16.5
197.     R0 12.5
198.     R1 6.3
199.      )
200.     )
201.     ((= GX "40c")
202.      (setq H1 400)   ;工字钢高度mm
203.      (setq BG 146)   ;工字钢宽度mm
204.      (setq DG 14.5)   ;工字钢腰厚度mm
205.      (SETQ F4 102.112)   ;工字钢截面面积<cm2>
206.      (SETQ I4 32200)   ;工字钢惯性矩I<cm4>
207.      (SETQ GZZ 80.158)   ;工字钢理论重量KG/M
208.      (SETQ GT 16.5
209.     R0 12.5
210.     R1 6.3
211.      )
212.     )
213.     ((= GX "45a")
214.      (setq H1 450)   ;工字钢高度mm
215.      (setq BG 150)   ;工字钢宽度mm
216.      (setq DG 11.5)   ;工字钢腰厚度mm
217.      (SETQ F4 102.446)   ;工字钢截面面积<cm2>
218.      (SETQ I4 32200)   ;工字钢惯性矩I<cm4>
219.      (SETQ GZZ 80.42)   ;工字钢理论重量KG/M
220.      (SETQ GT 18
221.     R0 13.5
222.     R1 6.8
223.      )
224.     )
225.     ((= GX "45b")
226.      (setq H1 450)   ;工字钢高度mm
227.      (setq BG 150)   ;工字钢宽度mm
228.      (setq DG 13.5)   ;工字钢腰厚度mm
229.      (SETQ F4 111.446)   ;工字钢截面面积<cm2>
230.      (SETQ I4 33800)   ;工字钢惯性矩I<cm4>
231.      (SETQ GZZ 87.485)   ;工字钢理论重量KG/M
232.      (SETQ GT 18
233.     R0 13.5
234.     R1 6.8
235.      )
236.     )
237.     ((= GX "45c")
238.      (setq H1 450)   ;工字钢高度mm
239.      (setq BG 154)   ;工字钢宽度mm
240.      (setq DG 15.5)   ;工字钢腰厚度mm
241.      (SETQ F4 120.4486)   ;工字钢截面面积<cm2>
242.      (SETQ I4 35300)   ;工字钢惯性矩I<cm4>
243.      (SETQ GZZ 94.55)   ;工字钢理论重量KG/M
244.      (SETQ GT 18
245.     R0 13.5
246.     R1 6.8
247.      )
248.     )
249.     ((= GX "56b")
250.      (setq H1 560)   ;工字钢高度mm
251.      (setq BG 168)   ;工字钢宽度mm
252.      (setq DG 14.5)   ;工字钢腰厚度mm
253.      (SETQ F4 146.635)   ;工字钢截面面积<cm2>
254.      (SETQ I4 68500)   ;工字钢惯性矩I<cm4>
255.      (SETQ GZZ 115.108)   ;工字钢理论重量KG/M
256.      (SETQ GT 21
257.     R0 14.5
258.     R1 7.3
259.      )
260.     )
261.     ((= GX "63b")
262.      (setq H1 630)   ;工字钢高度mm
263.      (setq BG 178)   ;工字钢宽度mm
264.      (setq DG 15)   ;工字钢腰厚度mm
265.      (SETQ F4 167.258)   ;工字钢截面面积<cm2>
266.      (SETQ I4 98100)   ;工字钢惯性矩I<cm4>
267.      (SETQ GZZ 131.298)   ;工字钢理论重量KG/M
268.      (SETQ GT 22
269.     R0 15
270.     R1 7.5
271.      )
272.     )
273.     ((= GX "24a")
274.      (setq H1 240)   ;工字钢高度mm
275.      (setq BG 116)   ;工字钢宽度mm
276.      (setq DG 8.0)   ;工字钢腰厚度mm
277.      (SETQ F4 47.741)   ;工字钢截面面积<cm2>
278.      (SETQ I4 4570)   ;工字钢惯性矩I<cm4>
279.      (SETQ GZZ 37.477)   ;工字钢理论重量KG/M
280.      (SETQ GT 13
281.     R0 10
282.     R1 5
283.      )
284.     )
285.     ((= GX "24b")
286.      (setq H1 240)   ;工字钢高度mm
287.      (setq BG 118)   ;工字钢宽度mm
288.      (setq DG 10.0)   ;工字钢腰厚度mm
289.      (SETQ F4 52.541)   ;工字钢截面面积<cm2>
290.      (SETQ I4 4800)   ;工字钢惯性矩I<cm4>
291.      (SETQ GZZ 41.246)   ;工字钢理论重量KG/M
292.      (SETQ GT 13
293.     R0 10
294.     R1 5
295.      )
296.     )
297.     ((= GX "27a")
298.      (setq H1 270)   ;工字钢高度mm
299.      (setq BG 122)   ;工字钢宽度mm
300.      (setq DG 8.5)   ;工字钢腰厚度mm
301.      (SETQ F4 54.554)   ;工字钢截面面积<cm2>
302.      (SETQ I4 6550)   ;工字钢惯性矩I<cm4>
303.      (SETQ GZZ 42.825)   ;工字钢理论重量KG/M
304.      (SETQ GT 13.7
305.     R0 10.5
306.     R1 5.3
307.      )
308.     )
309.     ((= GX "27b")
310.      (setq H1 270)   ;工字钢高度mm
311.      (setq BG 124)   ;工字钢宽度mm
312.      (setq DG 10.5)   ;工字钢腰厚度mm
313.      (SETQ F4 59.954)   ;工字钢截面面积<cm2>
314.      (SETQ I4 6870)   ;工字钢惯性矩I<cm4>
315.      (SETQ GZZ 47.064)   ;工字钢理论重量KG/M
316.      (SETQ GT 13.7
317.     R0 10.5
318.     R1 5.3
319.      )
320.     )
321.     ((= GX "30a")
322.      (setq H1 300)   ;工字钢高度mm
323.      (setq BG 126)   ;工字钢宽度mm
324.      (setq DG 9.0)   ;工字钢腰厚度mm
325.      (SETQ F4 61.254)   ;工字钢截面面积<cm2>
326.      (SETQ I4 8950)   ;工字钢惯性矩I<cm4>
327.      (SETQ GZZ 48.084)   ;工字钢理论重量KG/M
328.      (SETQ GT 14.4
329.     R0 11
330.     R1 5.5
331.      )
332.     )
333.     ((= GX "30b")
334.      (setq H1 300)   ;工字钢高度mm
335.      (setq BG 128)   ;工字钢宽度mm
336.      (setq DG 11.0)   ;工字钢腰厚度mm
337.      (SETQ F4 67.254)   ;工字钢截面面积<cm2>
338.      (SETQ I4 9400)   ;工字钢惯性矩I<cm4>
339.      (SETQ GZZ 52.794)   ;工字钢理论重量KG/M
340.      (SETQ GT 14.4
341.     R0 11.0
342.     R1 5.5
343.      )
344.     )
345.     ((= GX "50a")
346.      (setq H1 500)   ;工字钢高度mm
347.      (setq BG 158)   ;工字钢宽度mm
348.      (setq DG 12.0)   ;工字钢腰厚度mm
349.      (SETQ F4 119.304)   ;工字钢截面面积<cm2>
350.      (SETQ I4 46500)   ;工字钢惯性矩I<cm4>
351.      (SETQ GZZ 93.654)   ;工字钢理论重量KG/M
352.      (SETQ GT 20
353.     R0 14
354.     R1 7.0
355.      )
356.     )
357.     ((= GX "50b")
358.      (setq H1 500)   ;工字钢高度mm
359.      (setq BG 160)   ;工字钢宽度mm
360.      (setq DG 14.0)   ;工字钢腰厚度mm
361.      (SETQ F4 129.304)   ;工字钢截面面积<cm2>
362.      (SETQ I4 48600)   ;工字钢惯性矩I<cm4>
363.      (SETQ GZZ 101.504)   ;工字钢理论重量KG/M
364.      (SETQ GT 20
365.     R0 14
366.     R1 7.0
367.      )     ;平均腿厚度(mm) 内圆弧半径(mm) 腿端圆弧半径(mm)
368.     )
369.     (T
370.      (setq h1  (getreal "\n工字钢高度(mm):")
371.     bg  (getreal "\n工字钢宽度(mm):")
372.     dg  (getreal "\n工字钢腰厚(mm):")
373.     f4  (getreal "\n截面面积(cm^2):")
374.     i4  (getreal "\n惯性矩Ix(cm^4):")
375.     gzz (getreal "\n理论重量(KG/M):")
376.     gt  (getreal "\n平均腿厚度(mm):")
377.     r0  (getreal "\n内圆弧半径(mm):")
378.     r1  (getreal "\n腿端圆弧半径(mm):")
379.      )
380.     )
381.   )
382.   (setq PG (GETPOINT "\n底边中心之插入点："))
383.   (SETQ PG1    (list (+ (car PG) (* 0.5 BG)) (+ (CADR PG) H1))
384. PG2    (POLAR PG 0 (* 0.5 BG))
385. PG3    (POLAR PG PI (* 0.5 BG))
386. PG4    (POLAR PG1 PI BG)
387. PG5    (POLAR PG 0 (/ DG 2))
388. PG6    (POLAR PG5 (* 0.5 PI) H1)
389. PG7    (POLAR PG5 PI DG)
390. PG8    (POLAR PG6 PI DG)
391. PG9    (LIST (- (CAR PG2) (/ (- BG DG) 4)) (+ (CADR PG2) GT))
392. PG10   (POLAR PG9 (* 0.5 PI) (- H1 GT GT))
393. PG91   (LIST (- (CAR PG9) 6) (+ (CADR PG9) 1))
394. PG101  (LIST (- (CAR PG10) 6) (- (CADR PG10) 1))
395. PG21   (POLAR PG2 (* 0.5 PI) 1)
396. PG11   (POLAR PG1 (* 1.5 PI) 1)
397. PG9y   (LIST (+ (CAR PG3) (/ (- BG DG) 4)) (+ (CADR PG3) GT))
398. PG10y  (POLAR PG9y (* 0.5 PI) (- H1 GT GT))
399. PG91y  (LIST (+ (CAR PG9y) 6) (+ (CADR PG9y) 1))
400. PG101y (LIST (+ (CAR PG10y) 6) (- (CADR PG10y) 1))
401. PG21y  (POLAR PG3 (* 0.5 PI) 1)
402. PG11y  (POLAR PG4 (* 1.5 PI) 1)
403.   )
404.   (COMMAND "LINE" PG1 PG4 "")
405.   (COMMAND "LINE" PG2 PG3 "")
406.   (COMMAND "LINE" PG9 PG91 "")
407.   (SETQ SS1 (ENTLAST))
408.   (COMMAND "LINE" PG10 PG101 "")
409.   (SETQ SS2 (ENTLAST))
410.   (COMMAND "LINE" PG2 PG21 "")
411.   (SETQ SS3 (ENTLAST))
412.   (COMMAND "LINE" PG1 PG11 "")
413.   (SETQ SS4 (ENTLAST))
414.   (COMMAND "LINE" PG5 PG6 "")
415.   (SETQ SS5 (ENTLAST))
416.   (COMMAND "LINE" PG9y PG91y "")
417.   (SETQ SS1y (ENTLAST))
418.   (COMMAND "LINE" PG10y PG101y "")
419.   (SETQ SS2y (ENTLAST))
420.   (COMMAND "LINE" PG3 PG21y "")
421.   (SETQ SS3y (ENTLAST))
422.   (COMMAND "LINE" PG4 PG11y "")
423.   (SETQ SS4y (ENTLAST))
424.   (COMMAND "LINE" PG7 PG8 "")
425.   (SETQ SS5y (ENTLAST))
426.   (SETVAR "FILLETRAD" R0)
427.   (COMMAND "FILLET" SS5 SS1)
428.   (COMMAND "FILLET" SS5 SS2)
429.   (COMMAND "FILLET" SS1y SS5y)
430.   (COMMAND "FILLET" SS5y SS2y)
431.   (SETVAR "FILLETRAD" R1)
432.   (COMMAND "FILLET" SS2 SS4)
433.   (COMMAND "FILLET" SS1 SS3)
434.   (COMMAND "FILLET" SS4y SS2y)
435.   (COMMAND "FILLET" SS3y SS1y)
436.   (SETVAR "FILLETRAD" 0)
437.   (setvar "cmdecho" cmd)
438.   (setvar "osmode" osm)
439.   (princ)
440. )
441. (princ "GZG☆050908☆小妹丁")

(defun c:gzg ()   (setq GX (STRCASE (getstring "\n工字钢型号(30b):") T))   (setq osm (getvar "osmode"))   (setq cmd (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setvar "osmode" 0)   (cond     ((= GX "20a")      (setq H1 200)   ;工字钢高度mm      (setq BG 100)   ;工字钢宽度mm      (setq DG 7.0)   ;工字钢腰厚度mm      (SETQ F4 35.578)   ;工字钢截面面积<cm2>      (SETQ I4 2370)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 27.929)   ;工字钢理论重量KG/M      (SETQ GT 11.4     R0 9.0     R1 4.5      )     )     ((= GX "20b")      (setq H1 200)   ;工字钢高度mm      (setq BG 102)   ;工字钢宽度mm      (setq DG 9.0)   ;工字钢腰厚度mm      (SETQ F4 39.578)   ;工字钢截面面积<cm2>      (SETQ I4 2500)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 31.069)   ;工字钢理论重量KG/M      (SETQ GT 11.4     R0 9.0     R1 4.5      )     )     ((= GX "22a")      (setq H1 220)   ;工字钢高度mm      (setq BG 110)   ;工字钢宽度mm      (setq DG 7.5)   ;工字钢腰厚度mm      (SETQ F4 42.128)   ;工字钢截面面积<cm2>      (SETQ I4 3400)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 33.07)   ;工字钢理论重量KG/M      (SETQ GT 12.3     R0 9.5     R1 4.8      )     )     ((= GX "22b")      (setq H1 220)   ;工字钢高度mm      (setq BG 112)   ;工字钢宽度mm      (setq DG 9.5)   ;工字钢腰厚度mm      (SETQ F4 46.528)   ;工字钢截面面积<cm2>      (SETQ I4 3570)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 36.524)   ;工字钢理论重量KG/M      (SETQ GT 11.4     R0 9.0     R1 4.5      )     )     ((= GX "25a")      (setq H1 250)   ;工字钢高度mm      (setq BG 116)   ;工字钢宽度mm      (setq DG 8.0)   ;工字钢腰厚度mm      (SETQ F4 48.541)   ;工字钢截面面积<cm2>      (SETQ I4 5020)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 38.105)   ;工字钢理论重量KG/M      (SETQ GT 13     R0 10.0     R1 5      )     )     ((= GX "25b")      (setq H1 250)   ;工字钢高度mm      (setq BG 118)   ;工字钢宽度mm      (setq DG 10.0)   ;工字钢腰厚度mm      (SETQ F4 53.541)   ;工字钢截面面积<cm2>      (SETQ I4 5280)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 42.03)   ;工字钢理论重量KG/M      (SETQ GT 13     R0 10.0     R1 5      )     )     ((= GX "28a")      (setq H1 280)   ;工字钢高度mm      (setq BG 122)   ;工字钢宽度mm      (setq DG 8.5)   ;工字钢腰厚度mm      (SETQ F4 55.404)   ;工字钢截面面积<cm2>      (SETQ I4 7110)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 43.492)   ;工字钢理论重量KG/M      (SETQ GT 13.7     R0 10.5     R1 5.3      )     )     ((= GX "28b")      (setq H1 280)   ;工字钢高度mm      (setq BG 124)   ;工字钢宽度mm      (setq DG 10.5)   ;工字钢腰厚度mm      (SETQ F4 61.004)   ;工字钢截面面积<cm2>      (SETQ I4 7480)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 47.888)   ;工字钢理论重量KG/M      (SETQ GT 13.7     R0 10.5     R1 5.3      )     )     ((= GX "32a")      (setq H1 320)   ;工字钢高度mm      (setq BG 130)   ;工字钢宽度mm      (setq DG 9.5)   ;工字钢腰厚度mm      (SETQ F4 67.156)   ;工字钢截面面积<cm2>      (SETQ I4 11100)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 52.717)   ;工字钢理论重量KG/M      (SETQ GT 15     R0 11.5     R1 5.8      )     )     ((= GX "32b")      (setq H1 320)   ;工字钢高度mm      (setq BG 132)   ;工字钢宽度mm      (setq DG 11.5)   ;工字钢腰厚度mm      (SETQ F4 73.556)   ;工字钢截面面积<cm2>      (SETQ I4 11500)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 57.741)   ;工字钢理论重量KG/M      (SETQ GT 15     R0 11.5     R1 5.8      )     )     ((= GX "32c")      (setq H1 320)   ;工字钢高度mm      (setq BG 134)   ;工字钢宽度mm      (setq DG 13.5)   ;工字钢腰厚度mm      (SETQ F4 79.956)   ;工字钢截面面积<cm2>      (SETQ I4 12200)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 62.765)   ;工字钢理论重量KG/M      (SETQ GT 15     R0 11.5     R1 5.8      )     )     ((= GX "36a")      (setq H1 360)   ;工字钢高度mm      (setq BG 136)   ;工字钢宽度mm      (setq DG 7.0)   ;工字钢腰厚度mm      (SETQ F4 76.48)   ;工字钢截面面积<cm2>      (SETQ I4 15800)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 60.037)   ;工字钢理论重量KG/M      (SETQ GT 15.8     R0 12     R1 6      )     )     ((= GX "36b")      (setq H1 360)   ;工字钢高度mm      (setq BG 138)   ;工字钢宽度mm      (setq DG 12.0)   ;工字钢腰厚度mm      (SETQ F4 83.68)   ;工字钢截面面积<cm2>      (SETQ I4 16500)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 65.689)   ;工字钢理论重量KG/M      (SETQ GT 15.8     R0 12     R1 6      )     )     ((= GX "36c")      (setq H1 360)   ;工字钢高度mm      (setq BG 140)   ;工字钢宽度mm      (setq DG 14.0)   ;工字钢腰厚度mm      (SETQ F4 90.88)   ;工字钢截面面积<cm2>      (SETQ I4 17300)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 71.341)   ;工字钢理论重量KG/M      (SETQ GT 15.8     R0 12     R1 6      )     )     ((= GX "40a")      (setq H1 400)   ;工字钢高度mm      (setq BG 142)   ;工字钢宽度mm      (setq DG 10.5)   ;工字钢腰厚度mm      (SETQ F4 86.112)   ;工字钢截面面积<cm2>      (SETQ I4 21700)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 67.598)   ;工字钢理论重量KG/M      (SETQ GT 16.5     R0 12.5     R1 6.3      )     )     ((= GX "40b")      (setq H1 400)   ;工字钢高度mm      (setq BG 144)   ;工字钢宽度mm      (setq DG 12.5)   ;工字钢腰厚度mm      (SETQ F4 94.112)   ;工字钢截面面积<cm2>      (SETQ I4 22800)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 73.878)   ;工字钢理论重量KG/M      (SETQ GT 16.5     R0 12.5     R1 6.3      )     )     ((= GX "40c")      (setq H1 400)   ;工字钢高度mm      (setq BG 146)   ;工字钢宽度mm      (setq DG 14.5)   ;工字钢腰厚度mm      (SETQ F4 102.112)   ;工字钢截面面积<cm2>      (SETQ I4 32200)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 80.158)   ;工字钢理论重量KG/M      (SETQ GT 16.5     R0 12.5     R1 6.3      )     )     ((= GX "45a")      (setq H1 450)   ;工字钢高度mm      (setq BG 150)   ;工字钢宽度mm      (setq DG 11.5)   ;工字钢腰厚度mm      (SETQ F4 102.446)   ;工字钢截面面积<cm2>      (SETQ I4 32200)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 80.42)   ;工字钢理论重量KG/M      (SETQ GT 18     R0 13.5     R1 6.8      )     )     ((= GX "45b")      (setq H1 450)   ;工字钢高度mm      (setq BG 150)   ;工字钢宽度mm      (setq DG 13.5)   ;工字钢腰厚度mm      (SETQ F4 111.446)   ;工字钢截面面积<cm2>      (SETQ I4 33800)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 87.485)   ;工字钢理论重量KG/M      (SETQ GT 18     R0 13.5     R1 6.8      )     )     ((= GX "45c")      (setq H1 450)   ;工字钢高度mm      (setq BG 154)   ;工字钢宽度mm      (setq DG 15.5)   ;工字钢腰厚度mm      (SETQ F4 120.4486)   ;工字钢截面面积<cm2>      (SETQ I4 35300)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 94.55)   ;工字钢理论重量KG/M      (SETQ GT 18     R0 13.5     R1 6.8      )     )     ((= GX "56b")      (setq H1 560)   ;工字钢高度mm      (setq BG 168)   ;工字钢宽度mm      (setq DG 14.5)   ;工字钢腰厚度mm      (SETQ F4 146.635)   ;工字钢截面面积<cm2>      (SETQ I4 68500)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 115.108)   ;工字钢理论重量KG/M      (SETQ GT 21     R0 14.5     R1 7.3      )     )     ((= GX "63b")      (setq H1 630)   ;工字钢高度mm      (setq BG 178)   ;工字钢宽度mm      (setq DG 15)   ;工字钢腰厚度mm      (SETQ F4 167.258)   ;工字钢截面面积<cm2>      (SETQ I4 98100)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 131.298)   ;工字钢理论重量KG/M      (SETQ GT 22     R0 15     R1 7.5      )     )     ((= GX "24a")      (setq H1 240)   ;工字钢高度mm      (setq BG 116)   ;工字钢宽度mm      (setq DG 8.0)   ;工字钢腰厚度mm      (SETQ F4 47.741)   ;工字钢截面面积<cm2>      (SETQ I4 4570)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 37.477)   ;工字钢理论重量KG/M      (SETQ GT 13     R0 10     R1 5      )     )     ((= GX "24b")      (setq H1 240)   ;工字钢高度mm      (setq BG 118)   ;工字钢宽度mm      (setq DG 10.0)   ;工字钢腰厚度mm      (SETQ F4 52.541)   ;工字钢截面面积<cm2>      (SETQ I4 4800)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 41.246)   ;工字钢理论重量KG/M      (SETQ GT 13     R0 10     R1 5      )     )     ((= GX "27a")      (setq H1 270)   ;工字钢高度mm      (setq BG 122)   ;工字钢宽度mm      (setq DG 8.5)   ;工字钢腰厚度mm      (SETQ F4 54.554)   ;工字钢截面面积<cm2>      (SETQ I4 6550)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 42.825)   ;工字钢理论重量KG/M      (SETQ GT 13.7     R0 10.5     R1 5.3      )     )     ((= GX "27b")      (setq H1 270)   ;工字钢高度mm      (setq BG 124)   ;工字钢宽度mm      (setq DG 10.5)   ;工字钢腰厚度mm      (SETQ F4 59.954)   ;工字钢截面面积<cm2>      (SETQ I4 6870)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 47.064)   ;工字钢理论重量KG/M      (SETQ GT 13.7     R0 10.5     R1 5.3      )     )     ((= GX "30a")      (setq H1 300)   ;工字钢高度mm      (setq BG 126)   ;工字钢宽度mm      (setq DG 9.0)   ;工字钢腰厚度mm      (SETQ F4 61.254)   ;工字钢截面面积<cm2>      (SETQ I4 8950)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 48.084)   ;工字钢理论重量KG/M      (SETQ GT 14.4     R0 11     R1 5.5      )     )     ((= GX "30b")      (setq H1 300)   ;工字钢高度mm      (setq BG 128)   ;工字钢宽度mm      (setq DG 11.0)   ;工字钢腰厚度mm      (SETQ F4 67.254)   ;工字钢截面面积<cm2>      (SETQ I4 9400)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 52.794)   ;工字钢理论重量KG/M      (SETQ GT 14.4     R0 11.0     R1 5.5      )     )     ((= GX "50a")      (setq H1 500)   ;工字钢高度mm      (setq BG 158)   ;工字钢宽度mm      (setq DG 12.0)   ;工字钢腰厚度mm      (SETQ F4 119.304)   ;工字钢截面面积<cm2>      (SETQ I4 46500)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 93.654)   ;工字钢理论重量KG/M      (SETQ GT 20     R0 14     R1 7.0      )     )     ((= GX "50b")      (setq H1 500)   ;工字钢高度mm      (setq BG 160)   ;工字钢宽度mm      (setq DG 14.0)   ;工字钢腰厚度mm      (SETQ F4 129.304)   ;工字钢截面面积<cm2>      (SETQ I4 48600)   ;工字钢惯性矩I<cm4>      (SETQ GZZ 101.504)   ;工字钢理论重量KG/M      (SETQ GT 20     R0 14     R1 7.0      )     ;平均腿厚度(mm) 内圆弧半径(mm) 腿端圆弧半径(mm)     )     (T      (setq h1  (getreal "\n工字钢高度(mm):")     bg  (getreal "\n工字钢宽度(mm):")     dg  (getreal "\n工字钢腰厚(mm):")     f4  (getreal "\n截面面积(cm^2):")     i4  (getreal "\n惯性矩Ix(cm^4):")     gzz (getreal "\n理论重量(KG/M):")     gt  (getreal "\n平均腿厚度(mm):")     r0  (getreal "\n内圆弧半径(mm):")     r1  (getreal "\n腿端圆弧半径(mm):")      )     )   )   (setq PG (GETPOINT "\n底边中心之插入点："))   (SETQ PG1    (list (+ (car PG) (* 0.5 BG)) (+ (CADR PG) H1)) PG2    (POLAR PG 0 (* 0.5 BG)) PG3    (POLAR PG PI (* 0.5 BG)) PG4    (POLAR PG1 PI BG) PG5    (POLAR PG 0 (/ DG 2)) PG6    (POLAR PG5 (* 0.5 PI) H1) PG7    (POLAR PG5 PI DG) PG8    (POLAR PG6 PI DG) PG9    (LIST (- (CAR PG2) (/ (- BG DG) 4)) (+ (CADR PG2) GT)) PG10   (POLAR PG9 (* 0.5 PI) (- H1 GT GT)) PG91   (LIST (- (CAR PG9) 6) (+ (CADR PG9) 1)) PG101  (LIST (- (CAR PG10) 6) (- (CADR PG10) 1)) PG21   (POLAR PG2 (* 0.5 PI) 1) PG11   (POLAR PG1 (* 1.5 PI) 1) PG9y   (LIST (+ (CAR PG3) (/ (- BG DG) 4)) (+ (CADR PG3) GT)) PG10y  (POLAR PG9y (* 0.5 PI) (- H1 GT GT)) PG91y  (LIST (+ (CAR PG9y) 6) (+ (CADR PG9y) 1)) PG101y (LIST (+ (CAR PG10y) 6) (- (CADR PG10y) 1)) PG21y  (POLAR PG3 (* 0.5 PI) 1) PG11y  (POLAR PG4 (* 1.5 PI) 1)   )   (COMMAND "LINE" PG1 PG4 "")   (COMMAND "LINE" PG2 PG3 "")   (COMMAND "LINE" PG9 PG91 "")   (SETQ SS1 (ENTLAST))   (COMMAND "LINE" PG10 PG101 "")   (SETQ SS2 (ENTLAST))   (COMMAND "LINE" PG2 PG21 "")   (SETQ SS3 (ENTLAST))   (COMMAND "LINE" PG1 PG11 "")   (SETQ SS4 (ENTLAST))   (COMMAND "LINE" PG5 PG6 "")   (SETQ SS5 (ENTLAST))   (COMMAND "LINE" PG9y PG91y "")   (SETQ SS1y (ENTLAST))   (COMMAND "LINE" PG10y PG101y "")   (SETQ SS2y (ENTLAST))   (COMMAND "LINE" PG3 PG21y "")   (SETQ SS3y (ENTLAST))   (COMMAND "LINE" PG4 PG11y "")   (SETQ SS4y (ENTLAST))   (COMMAND "LINE" PG7 PG8 "")   (SETQ SS5y (ENTLAST))   (SETVAR "FILLETRAD" R0)   (COMMAND "FILLET" SS5 SS1)   (COMMAND "FILLET" SS5 SS2)   (COMMAND "FILLET" SS1y SS5y)   (COMMAND "FILLET" SS5y SS2y)   (SETVAR "FILLETRAD" R1)   (COMMAND "FILLET" SS2 SS4)   (COMMAND "FILLET" SS1 SS3)   (COMMAND "FILLET" SS4y SS2y)   (COMMAND "FILLET" SS3y SS1y)   (SETVAR "FILLETRAD" 0)   (setvar "cmdecho" cmd)   (setvar "osmode" osm)   (princ) ) (princ "GZG☆050908☆小妹丁")