[]
p      19425-74

[]
1=
2=
3=
4=


[]
Icon=_8239-89.gif

[]
Icon=_8239-89.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8239-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_19425-74.dwg") "_19425-74" $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)
  (begin_vc++)
  (setq h (* $h$ $Scale$ 10))
  (setq t1 (* $t$ $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 t1 t1))
  (setq p4 (rc_vc++ p1 (- (/ s -2) t1) t1))
  (setq p5 (rc_vc++ p1 (/ s -2) (+ t1 t1)))
  (setq p6 (rc_vc++ p1a (/ s -2) (- 0 t1 t1)))
  (setq p7 (rc_vc++ p1a (- (/ s -2) t1) (* -1 t1)))
  (setq p8 (rc_vc++ p9 t1 (* -1 t1)))
  p9
  p10
  (setq p11 (rc_vc++ p10 (* -1 t1) (* -1 t1)))
  (setq p12 (rc_vc++ p1a (+ (/ s 2) t1) (* -1 t1)))
  (setq p13 (rc_vc++ p1a (/ s 2) (* -1 (+ t1 t1))))
  (setq p14 (rc_vc++ p1 (/ s 2) (+ t1 t1)))
  (setq p15 (rc_vc++ p1 (+ (/ s 2) t1) t1))
  (setq p16 (rc_vc++ p17 (* -1 t1) 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,	r2,	A,2	P,/	Iy,4		Wy,3		iy,	Sy,3		Iz,4		Wz,3	iz,
18	18.000	9.000	0.700	1.200	0.900	0.350	32.900	25.80	1760.000	196.000		7.320	113.000		130.000		28.900	1.990
24	24.000	11.000	0.820	1.400	1.050	0.400	48.700	38.30	4640.000	387.000		9.750	223.000		276.000		50.200	2.380
30	30.000	13.000	0.900	1.500	1.200	0.600	64.000	50.20	9500.000	633.000		12.200	364.000		480.000		73.900	2.740
36	36.000	13.000	0.950	1.600	1.400	0.600	73.800	57.90	15340.000	852.000		14.400	493.000		518.000		79.700	2.650
45	45.000	15.000	1.050	1.800	1.600	0.700	98.800	77.60	31900.000	1420.000	18.000	821.000		892.000		119.000	3.000