[]
p      8239-89 

[]
1=
2=
3=
4=


[]
Icon=_8239-89.gif

[]
Icon=_8239-89.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8239-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_8239-89.dwg") "_8239-89" $Scale$ " " "$$") 
)

[-LISP]
(defun $main$ ( /  h b t1 s p1 p1a p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 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)))
 
  (initget 1)
  (setq p1 (getpoint "\n : "))
  (setq p1a (rc_vc++ p1 0 h))
  (setq p2 (rc_vc++ p1 (/ b -2) 0))
  (setq p17 (rc_vc++ p1 (/ b 2) 0))
  (setq p9 (rc_vc++ p2 0 h))
  (setq p10 (rc_vc++ p17 0 h))
  (setvar "OSMODE" 0)
  (command "_.pline" p1
   "_w" 0 0 p2
  (setq p3 (rc_vc++ p2 t1 t1))
  (setq p4 (rc_vc++ p1 (- (/ s -2) t1) t1))
  (setq p5 (rc_vc++ p1 (/ s -2) (+ t1 t1)))
  (setq p6 (rc_vc++ p1a (/ s -2) (- 0 t1 t1)))
  (setq p7 (rc_vc++ p1a (- (/ s -2) t1) (* -1 t1)))
  (setq p8 (rc_vc++ p9 t1 (* -1 t1)))
  p9
  p10
  (setq p11 (rc_vc++ p10 (* -1 t1) (* -1 t1)))
  (setq p12 (rc_vc++ p1a (+ (/ s 2) t1) (* -1 t1)))
  (setq p13 (rc_vc++ p1a (/ s 2) (* -1 (+ t1 t1))))
  (setq p14 (rc_vc++ p1 (/ s 2) (+ t1 t1)))
  (setq p15 (rc_vc++ p1 (+ (/ s 2) t1) t1))
  (setq p16 (rc_vc++ p17 (* -1 t1) t1))
  p17
  "_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)) (/ s 2)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (- pangle (/ pi 2)) (/ s 2)))
  (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,
10	10.0	5.5	0.45	0.72	0.70	0.25	12.0	9.46	198	39.7	4.06	23.0	17.9	6.49	1.22
12	12.0	6.4	0.48	0.73	0.75	0.30	14.7	11.5	350	58.4	4.88	33.7	27.9	8.72	1.38
14	14.0	7.3	0.49	0.75	0.80	0.30	17.4	13.7	572	81.7	5.73	46.8	41.9	11.5	1.55
16	16.0	8.1	0.50	0.78	0.85	0.35	20.2	15.9	873	109	6.57	62.3	58.6	14.5	1.70
18	18.0	9.0	0.51	0.81	0.90	0.35	23.4	18.4	1290	143	7.42	81.4	82.6	18.4	1.88
20	20.0	10.0	0.52	0.84	0.95	0.40	26.8	21.0	1840	184	8.28	104	115	23.1	2.07
22	22.0	11.0	0.54	0.87	1.00	0.40	30.6	24.0	2550	232	9.13	131	157	28.6	2.27
24	24.0	11.5	0.56	0.95	1.05	0.40	34.8	27.3	3460	289	9.97	163	198	34.5	2.37
27	27.0	12.5	0.60	0.98	1.10	0.45	40.2	31.5	5010	371	11.2	210	260	41.5	2.54
30	30.0	13.5	0.65	1.02	1.20	0.50	46.5	36.5	7080	472	12.3	268	337	49.9	2.69
33	33.0	14.0	0.70	1.12	1.30	0.50	53.8	42.2	9840	597	13.5	339	419	59.9	2.79
36	36.0	14.5	0.75	1.23	1.40	0.60	61.9	48.6	13380	743	14.7	423	516	71.1	2.89
40	40.0	15.5	0.83	1.30	1.50	0.60	72.6	57.0	19062	953	16.2	545	667	86.1	3.03
45	45.0	16.0	0.90	1.42	1.60	0.70	84.7	66.5	27696	1231	18.1	708	808	101	3.09
50	50.0	17.0	1.00	1.52	1.70	0.70	100.0	78.5	39727	1589	19.9	919	1043	123	3.23
55	55.0	18.0	1.10	1.65	1.80	0.70	118.0	92.6	55962	2035	21.8	1181	1356	151	3.39
60	60.0	19.0	1.20	1.78	2.00	0.80	138.0	108.0	76806	2560	23.6	1491	1725	182	3.54
