[]
   .     8240-97 

[]
1=
2=
3=
4=


[]
Icon=_8240-89.gif

[]
Icon=_8240-89.gif

[]
Icon=_8239-89-.gif

[]
Icon=_8240-89-.gif

[-LISP]
(defun $main$ ( / )
  (insert-dyn-block-vc (strcat $DrawDBPath$ "_8240-97.dwg") "_8240-97" $Scale$ "" "$$") 
)


[-LISP]
(defun $main$ ( / h b t1 s p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 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)))
 
  (setq p1 (getpoint "\n : "))
  (setvar "OSMODE" 0)
  (command "_.pline" p1 "_w" 0 0
  (setq p2 (rc_vc++ p1 0 h))
  (setq p3 (rc_vc++ p2 b 0))
  (setq p4 (rc_vc++ p3 (* -1 t1) (* -1 t1)))
  (setq p5 (rc_vc++ p2 (+ s s) (* -1 t1)))
  (setq p6 (rc_vc++ p5 (* -1 s) (* -1 s)))
  (setq p7 (rc_vc++ p1 s (+ t1 s)))
  (setq p8 (rc_vc++ p7 s (* -1 s)))
  (setq p9 (rc_vc++ p1 (- b t1) t1))
  (setq p10 (rc_vc++ p1 b 0)) "_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)) (- (/ b 2) s)))
  (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,	yo,
5	5	3.2	0.42	0.7	0.65	0.25	6.1	4.79	22.9	9.17	1.94	5.62	6.02	3.05	0.98	1.23
6.5	6.5	3.6	0.42	0.72	0.65	0.25	7.41	5.82	48.9	15.05	2.57	9.02	9.42	4.13	1.13	1.32
8	8	4	0.42	0.74	0.75	0.25	8.82	6.92	90.0   	22.5	3.19	13.31	13.93	5.38	1.26	1.41
10	10	4.6	0.42	0.76	0.9	0.3	10.79	8.47	175.9	35.17	4.04	20.55	22.68	7.47	1.45	1.56
12	12	5.2	0.45	0.78	0.95	0.3	13.09	10.24	307	51.17	4.84	29.75	35.12	10.03	1.64	1.70
14	14	5.8	0.46	0.81	1.0	0.3	15.41	12.15	495.7	70.81	5.67	40.96	51.76	13.13	1.83	1.86
16	16	6.4	0.47	0.84	1.1	0.35	17.85	14.01	755.5	94.43	6.5	54.41	73.17	16.7	2.02	2.02
18	18	7	0.48	0.87	1.15	0.35	20.4	16.01	1098	122	7.26	70.05	100.5	20.87	2.22	2.18
20	20	7.6	0.49	0.9	1.2	0.4	23.02	18.07	1537	153.7	8.17	88.03	134.1	25.54	2.41	2.35
22	22	8.2	0.51	0.95	1.3	0.4	26.36	20.69	2134	194	9.0	111	179.1	31.54	2.61	2.52
24	24	9	0.53	1.0	1.3	0.4	30.19	23.69	2927	243.9	9.85	139.1	249	40.07	2.87	2.78
27	27	9.5	0.58	1.05	1.3	0.45	34.87	27.37	4200	311.1	10.97	178.3	316.2	47.43	3.01	2.83
30	30	10	0.63	1.1	1.3	0.5	39.94	31.35	5837	389.1	12.09	224	395.6	55.58	3.15	2.88
33	33	10.5	0.69	1.17	1.3	0.5	46.15	36.14	8022	488.1	13.18	281.2	497	65.78	3.28	2.94
36	36	11	0.74	1.26	1.4	0.6	52.9	41.53	108640	603.6	14.33	350	618.9	77.76	3.42	3.04
40	40	11.5	0.79	1.35	1.55	0.6	61.11	47.97	15308	765.4	15.83	445.4	770.9	91.8	3.55	3.10
