[]
  (  51685-2000)    ( 4121-96)
 marcis (12.2015)

[]
1=
2=
3=

[]
Icon=.GIF

[]
Icon=_.GIF

[]
Icon=_.GIF


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

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

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

[]
	b,	h,	b1,	h1,	s,	t,	A,2	Wx,3	G,/
	/				
50	13.2	15.2	7.2	3.3	1.6	1.05	65.99	285	51.8
65	15	18	7.5	3.56	1.8	1.12	82.65	435	64.88
75	15	19.2	7.5	4.6	2	1.35	95.04	509	74.6
		
70	12	12	7	2.8	2.2	0.9	58.72	180.3	46.1
80	13	13	8	3.5	2.7	0.975	76.19	234.4	59.81
100	15	15	10	4	3.3	1.125	105.9	366.7	83.09
120	17	17	12	4.5	3.9	1.375	144.5	549.7	113.47
140	17	17	14	5	5.7	1.875	180.5	630.6	141.7