[]
  -   8282-83 
 marcis (07.2015)

[]
1=
2=
3=
4=

[]
Icon=-__8282-83.GIF

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

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

[]
Icon=-__8282-83-.GIF


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

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

[-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)
)

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

[]
	        h,	b,	a,	s,	A,2	Iy,4	Wy,3	iy,	Iz,4	Wz,3 	iz,	Zo,	G,/
62x66x17,5x3	6.2	6.6	1.75	0.3	6.23	40.14	12.95	2.54	35.65	9.61	2.39	2.89	4.89
65x32x8x1	6.5	3.2	0.8	0.1	1.38	9.38	2.69	2.61	1.89	0.88	1.17	1.05	1.08
65x32x8x1,6	6.5	3.2	0.8	0.16	2.11	13.92	4.28	2.57	2.7	1.25	1.13	1.04	1.66
80x50x24x4	8	5	2.4	0.4	7.93	73.05	18.26	3.03	27.72	9.65	1.87	2.13	6.23
100x50x10x2	10	5	1	0.2	4.12	65.59	13.12	4	12.64	3.68	1.76	1.56	3.22
100x80x35x5	10	8	3.5	0.5	14.68	220.5	44.11	3.87	33.57	30.47	3.02	3.62	11.53
120x55x18x5	12	5.5	1.8	0.5	11.66	245.7	40.96	4.59	42.52	11.65	1.91	1.85	9.15
160x50x20x3	16	5	2	0.3	8.36	306.4	38.3	6.05	27.17	7.74	1.8	1.49	6.56
160x60x32x4	16	6	3.2	0.4	12.57	462	37.75	6.05	65.78	7.16	2.29	2.14	9.87
300x60x50x5	30	6	5	0.5	24.36	2861.6	190.8	10.84	125.6	30.42	2.27	1.87	19.12
400x160x50x3	40	16	5	0.3	24.01	6073.7	303.7	15.91	884.5	80.83	6.07	5.06	18.85
400x160x60x4	40	16	6	0.4	32.27	8028.2	401.4	15.77	1219.7	113.9	6.15	5.29	25.33
410x65x30x4	41	6.5	3	0.4	22.95	4872.9	237.7	14.57	103.9	20.33	2.11	1.39	18.01
550x65x30x4	55	6.5	3	0.4	28.55	10258	373	18.96	110.3	20.64	1.97	1.16	22.41
