[]
      36-2287-80 

[]
1=
2=

[]
Icon=__36-2287-80.GIF

[]
Icon=__36-2287-80-.GIF


[-LISP]
(defun $main$ ( / b h t1 r1 a r2 p p4 p5 p7 p11 ee ptr ptr1)
  (begin_vc++)
  (setq b (* $b$ $Scale$ 10))
  (setq s (* $s$ $Scale$ 10))
  (setq h (* $b$ $Scale$ 10))
  ;;;(if (< $s$ 0.7) (setq s (* 0.7 $Scale$ 10)))

  (setq r1 (* h 0.09))
  (setq a (+ s r1))
  (initget 1)
  (setq ptr (getpoint "\n  : "))
  (setvar "OSMODE" 0)
  (command "_.pline" (rc_vc++ ptr r1 0) "_w" 0 0
  (setq p (rc_vc++ ptr (- b r1) 0))
   "_arc" "_ce"
  (setq p (rc_vc++ p 0 r1))
  (setq p4 (rc_vc++ p r1 0))
  "_line"
  (setq p5 (rc_vc++ p4 0 (- h r1 r1)))
   "_arc" "_ce"
  (setq p (rc_vc++ p5 (* -1 r1) 0))
  (setq p4 (rc_vc++ p 0 r1))
  "_line"
  (setq p (rc_vc++ p4 (* -1 (- b r1 r1)) 0))
  "_arc" "_ce"
  (setq p (rc_vc++ p 0 (* -1 r1)))
  (setq p (rc_vc++ p (* -1 r1) 0))
  "_line"
  (setq p11 (rc_vc++ p 0 (* -1 (- h r1 r1))))
  "_arc" "_ce"
  (setq p (rc_vc++ p11 r1 0))
  (setq p (rc_vc++ p 0 (* -1 r1)))
  "")
  
  (setq ptr1 (rc_vc++ ptr s s))
  (setq r1 (- r1 s) h (- h s s) b (- b s s))
  (command "_.pline" (rc_vc++ ptr1 r1 0) "_w" 0 0
  (setq p (rc_vc++ ptr1 (- b r1) 0))
   "_arc" "_ce"
  (setq p (rc_vc++ p 0 r1))
  (setq p4 (rc_vc++ p r1 0))
  "_line"
  (setq p5 (rc_vc++ p4 0 (- h r1 r1)))
   "_arc" "_ce"
  (setq p (rc_vc++ p5 (* -1 r1) 0))
  (setq p4 (rc_vc++ p 0 r1))
  "_line"
  (setq p (rc_vc++ p4 (* -1 (- b r1 r1)) 0))
  "_arc" "_ce"
  (setq p (rc_vc++ p 0 (* -1 r1)))
  (setq p (rc_vc++ p (* -1 r1) 0))
  "_line"
  (setq p11 (rc_vc++ p 0 (* -1 (- h r1 r1))))
  "_arc" "_ce"
  (setq p (rc_vc++ p11 r1 0))
  (setq p (rc_vc++ p 0 (* -1 r1)))
  "")


  (setq ee (entlast))
  (prompt "\n : ")
  (command "_.rotate" ee "" ptr pause)
 
  (end_vc++)
  (princ)
)


[-LISP]
(defun $main$ ( / h tt 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)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (setq p (polar ptr1 (+ pangle (/ pi 2)) (- (/ b 2) s)))
  (command "_.pline" p (polar p pangle pl) "")
  (end_vc++)
  (princ)
)


[]
	b,	s,	A,2	Iy=Iz,4	Wy=Wz,4	iy=iz,	G,/
80x3	8.000	0.300	9.240	91.400		22.800		3.140		0.007
100x3	10.000	0.300	11.640	182.700		36.500		3.960		0.009
100x4	10.000	0.400	15.360	236.300		47.200		3.920		0.012
120x3	12.000	0.300	14.040	320.500		53.400		4.770		0.011
120x4	12.000	0.400	18.560	416.700		69.400		4.740		0.015
120x5	12.000	0.500	23.000	507.900		84.600		4.690		0.018
140x4	14.000	0.400	21.760	671.300		95.900		5.550		0.017
140x5	14.000	0.500	27.000	821.200		117.300		5.510		0.021
140x6	14.000	0.600	32.160	964.300		137.700		5.480		0.025
140x7	14.000	0.700	37.240	1100.900	157.200		5.440		0.029
160x4	16.000	0.400	24.960	1013.000	126.600		6.370		0.020
160x5	16.000	0.500	31.000	1242.500	155.300		6.330		0.024
160x6	16.000	0.600	36.960	1463.100	182.800		6.290		0.029
160x7	16.000	0.700	42.840	1674.900	209.300		6.250		0.034
180x5	18.000	0.500	35.000	1787.900	198.600		7.150		0.027
180x6	18.000	0.600	41.760	2109.700	234.400		7.110		0.033
180x7	18.000	0.700	48.440	2420.200	268.900		7.070		0.038
180x8	18.000	0.800	55.040	2719.700	302.100		7.030		0.043
