[]
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.6	19.9	0.65	1.0	1.3	52.69	41.4	3846	392.5	216.4	8.54	1341.4	132.1	4.99
202	20.0	20.0	0.8	1.2	1.3	63.53	49.9	4716	471.6	262.8	8.62	1601.4	160.1	5.02
251	24.6	24.9	0.8	1.2	1.6	79.72	62.6	9171	745.6	410.7	10.73	3089.9	248.2	6.23
252	25.0	25.0	0.9	1.4	1.6	92.18	72.4	10833	866.6	480.3	10.84	3648.6	291.9	6.29
25K3	25.3	25.1	1.0	1.55	1.6	102.21	80.2	12154	960.8	535.4	10.9	4088.6	325.8	6.32
301	29.8	29.9	0.9	1.4	1.8	110.80	87	18849	1265.1	694.7	13.04	6240.9	417.5	7.51
302	30.0	30.0	1.0	1.5	1.8	119.78	94	20411	1360.7	750.6	13.05	6754.5	450.3	7.51
30K3	30.0	30.5	1.5	1.5	1.8	134.78	105.8	21536	1433.7	806.9	12.64	7104.4	465.9	7.26
30K4	30.4	30.1	1.1	1.7	1.8	134.82	105.8	23381	1538.2	852.8	13.17	7732.3	513.8	7.57
351	34.2	34.8	1.0	1.5	2.0	139.03	109.1	31249	1827.4	1001.2	14.99	10541.7	605.8	8.71
352	35.0	35.0	1.2	1.9	2.0	173.87	136.5	40296	2302.6	1272.7	15.22	13585.3	776.3	8.64
401	39.4	39.8	1.1	1.8	2.2	186.81	146.6	56147	2850.1	1559.3	17.34	18921.9	950.8	10.06
402	40.0	40.0	1.3	2.1	2.2	218.67	171.7	66623	3331.2	1836.3	17.45	22412.0	1120.6	10.12
40K3	40.6	40.3	1.6	2.4	2.2	254.87	200.1	78041	3844.4	2139.9	17.5	26199.5	1300.2	10.14
40K4	41.4	40.5	1.8	2.8	2.2	295.39	231.9	92773	4481.8	2513.2	17.72	31026.2	1532.2	10.25
40K5	42.9	40.0	2.3	3.55	2.2	370.49	290.8	120292	5608	3198.6	18.02	37914.2	1859.7	10.12
