[]
p  ()   26020-83   

[]
1=
2=
3=
4=


[]
Icon=_26020-83.gif

[]
Icon=_26020-83.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8239-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_26020-83.dwg") "_26020-83" $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 r1)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $Scale$ 10))
  (setq r1 (* $r1$ $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 0 t1))
  (setq p4 (rc_vc++ p1 (- (/ s -2) r1) t1))
  (setq p5 (rc_vc++ p1 (/ s -2) (+ t1 r1)))
  (setq p6 (rc_vc++ p1a (/ s -2) (- 0 r1 t1)))
  (setq p7 (rc_vc++ p1a (- (/ s -2) r1) (* -1 t1)))
  (setq p8 (rc_vc++ p9 0 (* -1 t1)))
  p9
  p10
  (setq p11 (rc_vc++ p10 0 (* -1 t1)))
  (setq p12 (rc_vc++ p1a (+ (/ s 2) r1) (* -1 t1)))
  (setq p13 (rc_vc++ p1a (/ s 2) (* -1 (+ r1 t1))))
  (setq p14 (rc_vc++ p1 (/ s 2) (+ r1 t1)))
  (setq p15 (rc_vc++ p1 (+ (/ s 2) r1) t1))
  (setq p16 (rc_vc++ p17 0 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,	A,2	P,/	Iy,4	Wy,3	Sy,3	iy,	Iz,4	Wz,3	iz,
201	19.5	20.0	0.65	1.00	1.3	52.82	41.5	3820	392	216	8.50	1334	133	5.03	
202	19.8	20.0	0.70	1.15	1.3	59.70	46.9	4422	447	247	8.61	1534	153	5.07	
231	22.7	24.0	0.70	1.05	1.4	66.51	52.2	6589	580	318	9.95	2421	202	6.03	
232	23.0	24.0	0.80	1.20	1.4	75.77	59.5	7601	661	365	10.02	2766	231	6.04	
261	25.5	26.0	0.80	1.20	1.6	83.08	65.2	10300	809	445	11.14	3517	271	6.51	
262	25.8	26.0	0.90	1.35	1.6	93.19	73.2	11700	907	501	11.21	3957	304	6.52	
263	26.2	26.0	1.0	1.55	1.6	105.9	83.1	13560	1035	576	11.32	4544	349	6.55	
301	29.6	30.0	0.9	1.35	1.8	108.0	84.8	18110	1223	672	12.95	6079	405	7.50	
302	30.0	30.0	1.0	1.55	1.8	122.7	96.3	20930	1395	771	13.06	6980	465	7.54	
303	30.4	30.0	1.15	1.75	1.8	138.72	108.9	23910	1573	874	13.12	7881	525	7.54	
351	34.3	35.0	1.0	1.50	2.0	139.7	109.7	31610	1843	1010	15.04	10720	613	8.76	
352	34.8	35.0	1.1	1.75	2.0	160.4	125.9	37090	2132	1173	15.21	12510	715	8.83
353	35.3	35.0	1.3	2.00	2.0	184.1	144.5	42970	2435	1351	15.28	14300	817	8.81	
401	39.3	40.0	1.1	1.65	2.2	175.8	138	52400	2664	1457	17.26	17610	880	10.00
402	40.0	40.0	1.3	2.00	2.2	210.96	165.6	64140	3207	1767	17.44	21350	1067	10.06	
403	40.9	40.0	1.6	2.45	2.2	257.8	202.3	80040	3914	2180	17.62	26150	1307	10.07	
404	41.9	40.0	1.9	2.95	2.2	308.6	242.2	98340	4694	2642	17.85	31500	1575	10.10	
405	43.1	40.0	2.3	3.55	2.2	371.0	291.2	121570	5642	3217	18.10	37910	1896	10.11	
