[]
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,
241	23.9	11.5	0.55	0.93	1.5	35.45		27.8		3535		295.8		166.6		9.99		254.8		41.2		2.58
271	26.9	12.5	0.60	0.95	1.5	40.68		31.9		5068		376.8		212.7		11.16		310.5		49.7		2.76
361	36.0	14.5	0.72	1.23	1.8	62.60		49.1		13800		766.4		434.1		14.84		627.6		86.6		3.17
351	34.9	12.7	0.58	0.85	1.5	42.78		33.6		8540		489.4		279.4		14.13		291.5		45.9		2.61
401	39.9	13.9	0.62	0.90	1.5	50.58		39.7		13050		654.2		374.5		16.06		404.4		58.2		2.83
451	45.0	15.2	0.74	1.10	1.5	67.05		52.6		21810		969.2		556.8		18.04		646.2		85.0		3.10
452	45.0	18.0	0.76	1.33	1.8	82.8		65.0		28840		1280		722		18.7		1300		144		3.96
301	30.06	20.19	0.94	1.60	1.8	92.6		72.7		15090		1000		563		12.8		2200		218		4.87
401	39.76	30.2	1.15	1.87	2.2	159		124.0		46330		2330		1290		17.1		8590		569		7.36
501	49.62	30.38	1.42	2.10	2.6	198		155.0		86010		3470		1950		20.8		9830		647		7.05
