[]
    8510-86* 

[]
1=
2=
3=

[]
Icon=_8510-86.GIF

[]
Icon=_8510-86-.GIF

[]
Icon=_8510-86-.GIF


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

  (setq r1 (* h 0.09) r2 (* h 0.03))
  (setq a (- t1 r2))
  (initget 1)
  (setq ptr (getpoint "\n  : "))
  (setvar "OSMODE" 0)
  (command "_.pline" ptr "_w" 0 0
  (setq p (rc_vc++ ptr b 0))
  (setq p (rc_vc++ p 0 (- t1 r2)))
   "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p4 (rc_vc++ p 0 r2))
  "_line"
  (setq p5 (rc_vc++ ptr (+ t1 r1) t1))
  "_arc"
  (setq p7 (rc_vc++ p5 (* -1 r1) r1))
  "_line"
  (setq p (rc_vc++ ptr t1 (- h r2)))
  "_arc" "_ce"
  (setq p (rc_vc++ p (* -1 r2) 0))
  (setq p (rc_vc++ p 0 r2))
  "_line"
  (setq p11 (rc_vc++ ptr 0 h))
  "_c")
  (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 (* $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 (/ 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) "")
  (end_vc++)
  (princ)
)

[-LISP]
(defun $main$ ( / b s ptr1 ptr2 pangle angp90 angm90 pl p1 p)
  (begin_vc++)
  (setq b (* $h$ $Scale$ 10))
  (setq s (* $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 (/ 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) "")
  (end_vc++)
  (princ)
)


[]
		h,	b,	t,	r1,	r2,	A,2	Iy,4	Wy,3	iy,	Iz,4	Wz,3	iz,	Iv,4	Wv,3	iv,	yo,	zo,	Iyz,4	tg a	P,/
L50x32x4	5.000	3.200	0.400	0.550	0.180	3.170	7.980	2.380	1.590	2.560	1.050	0.900	1.520	0.880	0.690	0.760	1.650	2.590	0.401	0.002
L75x50x5	7.500	5.000	0.500	0.800	0.270	6.110	34.810	6.810	2.390	12.470	3.250	1.430	7.240	2.730	1.090	1.170	2.390	12.000	0.436	0.005
L100x63x8	10.000	6.300	0.800	1.000	0.330	12.570	126.960	19.010	3.180	39.210	8.170	1.770	23.380	6.820	1.360	1.500	3.320	40.500	0.391	0.010
L125x80x8	12.500	8.000	0.800	1.100	0.370	15.980	225.620	30.260	4.000	80.950	13.470	2.280	48.820	11.250	1.750	1.840	4.050	84.100	0.406	0.013
L125x80x10	12.500	8.000	1.000	1.100	0.370	19.700	311.610	37.270	3.980	100.470	16.520	2.260	59.330	13.740	1.740	1.920	4.140	102.000	0.404	0.015
