[]
p     20-93
 
[]
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$ "___20-93.dwg") "___20-93" $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.4	15.0	0.6	0.9	1.3	39.01	30.6	2690	277.3	154.3	  8.30		 507.1		67.6 	   3.61
251	24.4	17.5	0.7	1.1	1.6	56.24	44.1	6122	501.8	279.2	  10.43		 984.3		112.5	   4.18
301	29.4	20.0	0.8	1.2	1.8	72.38	56.8	11339	771.4	429.5	  12.52		 1602.9		160.3	   4.71
302	30.0	20.1	0.9	1.5	1.8	87.38	68.6	14210	947.4	529.9	  12.75		 2033.8		202.4	   4.82
351	33.4	24.9	0.8	1.1	2.0	83.17	65.3	17108	1024.4	565.8	  14.34		 2834.1		227.6	   5.84
352	34.0	25.0	0.9	1.4	2.0	101.51	79.7	21678	1275.2	706.1	  14.61		3650.5		292.0	   6.00
401	38.3	29.9	0.95	1.25	2.2	112.91	88.6	30556	1595.6	880.8	  14.65		5575.4		372.9	   7.03
402	39.0	30.0	1.0	1.60	2.2	135.95	106.7	38676	1983.4	1094.0	  16.87		7207.1		480.5	   7.28
451	44.0	30.0	1.1	1.8	2.4	157.39	123.5	56072	2546.7	1412.0	  18.88		8110.3		570.7	   7.18
501	48.2	30.0	1.1	1.5	2.6	145.52	114.2	60371	2505.0	1395.7	  20.37		6762.4		450.6	   6.82
502	48.7	30.0	1.45	1.75	2.6	176.34	138.4	71867	2951.4	1666.7	  20.19		7896.4		526.4	   6.69
503	49.3	30.0	1.55	2.05	2.6	198.86	156.1	83441	3385	1912.8	  20.48		9249.7		616.6	   6.82
504	49.9	30.0	1.65	2.35	2.6	221.38	173.8	95282	3818.9 	2161.5	  20.75		10603.4		706.9	   6.92
601	58.2	30.0	1.2	1.7	2.8	174.49	137	102717	3529.8	1981.5	  24.26		7668	 	511.2	   6.63
602	58.9	30.0	1.6	2.05	2.8	217.41	170.7	126201	4285.3	2439.0	  24.09		9257.4		617.2	   6.53
603	59.7	30.0	1.8	2.45	2.8	252.37	198.1	150043	5026.6	2869.9	  24.38		11067.3		737.8	   6.62
604	60.5	30.0	2.0	2.8	2.8	287.13	225.6	174458	5767.2	3305.6	  24.64		12879.3		856.6	   6.70
701	69.2	30.0	1.3	2.0	2.8	211.49	166	172435	4983.7	2814.6	  28.53		9022.9		601.5	   6.53
702	69.8	30.0	1.5	2.3	2.8	242.53	190.4	198791	5696.0	3233.6	  28.63		10381.1		692.1	   6.54
703	70.7	30.0	1.8	2.75	2.8	289.09	226.9	239032	6761.9	3867.2	  28.76		12422.4		838.2	   6.56
704	71.5	30.0	2.05	3.15	2.8	329.39	258.6	275138	7696.2	4426.7	  28.9		14240.2		949.3	   6.58
705	72.5	30.0	2.3	3.65	2.8	375.69	294.9	319793	8821.9	5099.5	  29.18		16512.3		1100.8	   6.63
801	78.2	30.0	1.35	1.7	2.8	209.71	164.6	205458	5254.7	3018.9	  31.3		7676.7		511.8	   6.05
802	79.2	30.0	1.4	2.2	2.8	243.45	191.1	253655	6405.4	3644.1	  32.28		9928.9		661.9	   6.39
901	88.1	29.9	1.5	1.85	2.8	243.96	191.5	292583	6642.1	3861.2	  34.63		8278.5		553.7	   5.83
902	89.0	29.9	1.5	2.3	2.8	270.87	212.6	345335	7760.3	4457	  35.71		10283.3		687.8	   6.16
1001	99.0	32.0	1.6	2.1	3.0	293.8	230.6	446039	9010.9	5234.1	  38.96		11517.9		719.9	   6.26
1002	99.8	32.0	1.7	2.5	3.0	328.88	258.2	516373	10348.2	5982.6	  39.62		13710		856.9	   6.46
1003	100.6	32.0	1.8	2.9	3.0	363.96	285.7	587730	11684.5	6736.2	  40.18		15903		993.9	   6.61
1004	101.3	32.0	1.95	3.25	3.0	400.58	314.5	655449	12940.7	7470	  40.45		17828.8		1114.3	   6.67