[]
      8240-89 

[]
1=
2=
3=

[]
Icon=_8240-89.gif

[]
Icon=_8240-89-.gif

[]
Icon=_8240-89-.gif


[-LISP]
(defun $main$ ( / h b t1 s p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 ee)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))
  ;;;(if (< $t$ 0.7) (setq t1 (* 0.7 $Scale$ 10)))
 
  (setq p1 (getpoint "\n : "))
  (setvar "OSMODE" 0)
  (command "_.pline" p1 "_w" 0 0
  (setq p2 (rc_vc++ p1 0 h))
  (setq p3 (rc_vc++ p2 b 0))
  (setq p4 (rc_vc++ p3 (* -1 t1) (* -1 t1)))
  (setq p5 (rc_vc++ p2 (+ s s) (* -1 t1)))
  (setq p6 (rc_vc++ p5 (* -1 s) (* -1 s)))
  (setq p7 (rc_vc++ p1 s (+ t1 s)))
  (setq p8 (rc_vc++ p7 s (* -1 s)))
  (setq p9 (rc_vc++ p1 (- b t1) t1))
  (setq p10 (rc_vc++ p1 b 0)) "_c")
  (setq ee (entlast))
  (princ "\n : ")
  (command "_.rotate" ee "" p1 pause)
  (end_vc++)
  (princ)
)


[-LISP]
(defun $main$ ( / h tt ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq tt (* $t$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ h 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 h))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar p1 (+ pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p1 (polar ptr1 angp90 (/ h 2)))
  (setq p (polar p1 (- pangle (/ pi 2)) tt))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (initget 1)
  (setq ptr1 (getpoint "\n : "))
  (initget 1)
  (setq ptr2 (getpoint ptr1 "\n : "))
  (setq pangle (angle ptr1 ptr2))
  (setq angp90 (+ pangle (/ pi 2)))
  (setq angm90 (- pangle (/ pi 2)))
  (setq pl (distance ptr1 ptr2))
  (setvar "OSMODE" 0)
  (command "_.pline"
  (setq p1 (polar ptr1 angm90 (/ b 2)))
   "_w" 0 0
  (setq p (polar p1 pangle pl))
  (setq p (polar p angp90 b))
  (polar p (+ pangle pi) pl)
   "_c")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	h,	b,	s,	t,	r1,	r2,	A,2	P,/	Iy,4		Wy,3	iy,	Sy,3	Iz,4	Wz,3	iz,	yo,
5	5.000	3.200	0.440	0.700	0.600	0.250	6.160	0.005	22.800		9.100	1.920	5.590	5.610	2.750	0.950	1.160
6.5	6.500	3.600	0.440	0.720	0.600	0.250	7.510	0.006	48.600		15.000	2.540	9.000	8.700	3.680	1.080	1.240
8	8.000	4.000	0.450	0.740	0.650	0.250	8.980	0.007	89.400		22.400	3.160	23.300	12.800	4.750	1.190	1.310
10	10.000	4.600	0.450	0.760	0.700	0.300	10.900	0.009	174.000		34.800	3.990	20.400	20.400	6.460	1.370	1.440
12	12.000	5.200	0.480	0.780	0.750	0.300	13.300	0.010	304.000		50.600	4.780	29.600	31.200	8.520	1.530	1.540
14	14.000	5.800	0.490	0.810	0.800	0.300	15.600	0.012	491.000		70.200	5.600	40.800	45.400	11.000	1.700	1.670
16	16.000	6.400	0.500	0.840	0.850	0.350	18.100	0.014	747.000		93.400	6.420	54.100	63.300	13.800	1.870	1.800
16	16.000	6.800	0.500	0.900	0.850	0.350	19.500	0.015	823.000		103.000	6.490	59.400	78.800	16.400	2.010	2.000
18	18.000	7.000	0.510	0.870	0.900	0.350	20.700	0.016	1090.000	121.000	7.240	69.800	86.000	17.000	2.040	1.940
18	18.000	7.400	0.510	0.930	0.900	0.350	22.200	0.017	1190.000	132.000	7.320	76.100	105.000	20.000	2.180	2.130
20	20.000	7.600	0.520	0.900	0.950	0.400	23.400	0.018	1520.000	152.000	8.070	87.800	113.000	20.500	2.200	2.070
22	22.000	8.200	0.540	0.950	1.000	0.400	26.700	0.021	2110.000	192.000	8.890	110.000	151.000	25.100	2.370	2.210
24	24.000	9.000	0.560	1.000	1.050	0.400	30.600	0.024	2900.000	242.000	9.730	139.000	208.000	31.600	2.600	2.420
27	27.000	9.500	0.600	1.050	1.100	0.450	35.200	0.028	4160.000	308.000	10.900	178.000	262.000	37.300	2.730	2.470
30	30.000	10.000	0.650	1.100	1.200	0.500	40.500	0.032	5810.000	387.000	12.000	224.000	327.000	43.600	2.840	2.520
33	33.000	10.500	0.700	1.170	1.300	0.500	46.500	0.037	7980.000	484.000	13.100	281.000	410.000	51.800	2.970	2.590
36	36.000	11.000	0.750	1.260	1.400	0.600	53.400	0.042	10820.000	601.000	14.200	350.000	513.000	61.700	3.100	2.680
40	40.000	11.500	0.800	1.350	1.500	0.600	61.500	0.048	15220.000	761.000	15.700	444.000	642.000	73.400	3.230	2.750
