[]
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.3	15.0	0.60	0.90	1.3	38.95		30.6		2660		275		153		8.26		507		67.6		3.61
231	22.6	15.5	0.65	1.00	1.4	46.08		36.2		4260		377		210		9.62		622		80.2		3.67
261	25.1	18.0	0.70	1.00	1.6	54.37		42.7		6225		496		276		10.70		974		108.2		4.23
262	25.5	18.0	0.75	1.20	1.6	62.73		49.2		7429		583		325		10.88		1168		129.8		4.31
301	29.1	20.0	0.80	1.10	1.8	68.31		53.6		10400		715		398		12.34		1470		147		4.64
302	29.5	20.0	0.85	1.30	1.8	77.65		61.0		12200		827		462		12.53		1737		173		4.73
303	29.9	20.0	0.90	1.50	1.8	87.00		68.3		14040		939		526		12.70		2004		200		4.80
351	33.8	25.0	0.95	1.25	2.0	95.67		75.1		19790		1171		651		14.38		3260		261		5.84
352	34.1	25.0	1.00	1.40	2.0	104.74	82.2		22070		1295		721		14.52		3650		292		5.90
353	34.5	25.0	1.05	1.60	2.0	116.3		91.3		25140		1458		813		14.70		4170		334		5.99
401	38.8	30.0	0.95	1.40	2.2	122.4		96.1		34360		1771		976		16.76		6306		420		7.18
402	39.2	30.0	1.15	1.60	2.2	141.6		111.1		39700		2025		1125		16.75		7209		481		7.14
403	39.6	30.0	1.25	1.80	2.2	157.2		123.4		44740		2260		1259		16.87		8111		541		7.18
501	48.4	30.0	1.10	1.50	2.6	145.7		114.4		60930		2518		1403		20.45		6762		451		6.81
502	48.9	30.0	1.45	1.75	2.6	176.6		138.7		72530		2967		1676		20.26		7900		526		6.69
503	49.5	30.0	1.55	2.05	2.6	199.2		156.4		84200		3402		1923		20.56		9250		617		6.81
504	50.1	30.0	1.65	2.35	2.6	221.7		174.1		96150		3838		2173		20.82		10600		707		6.92
601	58.0	32.0	1.20	1.70	2.8	181.1		142.1		107300	3701		2068		24.35		9302		581		7.17
602	58.7	32.0	1.60	2.05	2.8	225.3		176.9		131800	4490		2544		24.19		11230		702		7.06
603	59.5	32.0	1.80	2.45	2.8	261.8		205.5		156900	5273		2997		24.48		13420		839		7.16
604	60.3	32.0	2.00	2.85	2.8	298.34	234.2		182500	6055		3455		24.73		15620		976		7.23
701	68.3	32.0	1.35	1.90	3.0	216.4		169.9		172000	5036		2843		28.19		10400		650		6.93
702	69.1	32.0	1.50	2.30	3.0	251.7		197.6		205500	5949		3360		28.58		12590		787		7.07
703	70.0	32.0	1.80	2.75	3.0	299.8		235.4		247100	7059		4017		28.72		15070		942		7.09
704	70.8	32.0	2.05	3.15	3.0	341.6		268.1		284400	8033		4598		28.85		17270		1079		7.11
705	71.8	32.0	2.30	3.65	3.0	389.7		305.9		330600	9210		5298		29.13		20020		1251		7.17
