(setq b1 60.0)
(setq b2 60.0)
(setq Breite_3 40.0)
(setq w90 (/ pi 2))
(setq w45 (/ pi 4))
(setq w270 (* pi 1.5)) 



(setq bock_seit_an1 (polar (setq startbock_an (getpoint "\n Startpunkt für den Gehrungsbock " )) 0.0    (-   (+  (+  (+(-(* b1 (sqrt 2.0))9.95 )2.9) (* b2 (sqrt 2.0))) (+ (* Breite_3 (sqrt 2.0)) 4.0)) 5.4)  ))
(setq bock_seit_an2 (polar  bock_seit_an1 w45 (* 5.4 (sqrt 2.0))))
(setq bock_seit_an3 (polar  bock_seit_an2 pi  (+  (+  (+(-(* b1 (sqrt 2.0))9.95 )2.9) (* b2 (sqrt 2.0))) (+ (* Breite_3 (sqrt 2.0)) 4.0))))
(setq bock_seit_an4 (polar  bock_seit_an3 w270  5.4))

(command "plinie"  startbock_an bock_seit_an1 bock_seit_an2 bock_seit_an3  "s")

(setq bock_seit_an5 (polar  startbock_an w90  66.8))
(setq bock_seit_an6 (polar  bock_seit_an5 pi  2.7))
(setq bock_seit_an7 (polar  bock_seit_an6 w270  66.8))


(command "plinie"  startbock_an bock_seit_an5 bock_seit_an6 bock_seit_an7  "s")

(setq bock_seit_an8 (polar  bock_seit_an6 w90  3.4))
(setq bock_seit_an9 (polar  bock_seit_an8 0.0  (+(+(-(* b1 (sqrt 2.0))9.95 )2.9)2.7)))
(setq bock_seit_an10 (polar  bock_seit_an9 w270  3.4))


(command "plinie"  bock_seit_an6 bock_seit_an8 bock_seit_an9 bock_seit_an10  "s")

(setq bock_seit_an11 (polar  bock_seit_an10 w270  61.4))
(setq bock_seit_an12 (polar  bock_seit_an11 pi  3.4))
(setq bock_seit_an13 (polar  bock_seit_an12 w90  61.4))

(command "plinie"  bock_seit_an10 bock_seit_an11 bock_seit_an12 bock_seit_an13  "s")

(setq bock_seit_an14 (polar  bock_seit_an12 pi  (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(setq bock_seit_an15 (polar  bock_seit_an14 w90  3.4))
(setq bock_seit_an16 (polar  bock_seit_an15 0.0  (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))

(command "plinie"  bock_seit_an12 bock_seit_an14 bock_seit_an15 bock_seit_an16  "s")

(setq bock_seit_an17 (polar  bock_seit_an14 pi  3.4))
(setq bock_seit_an18 (polar  bock_seit_an17 w90  61.4))
(setq bock_seit_an19 (polar  bock_seit_an18 0.0  3.4))

(command "plinie"  bock_seit_an14 bock_seit_an17 bock_seit_an18 bock_seit_an19  "s")

(setq bock_seit_an20 (polar  bock_seit_an19 0.0  (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(setq bock_seit_an21 (polar  bock_seit_an20 w270  5.4))
(setq bock_seit_an22 (polar  bock_seit_an21 pi  (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))

(command "plinie"  bock_seit_an19 bock_seit_an20 bock_seit_an21 bock_seit_an22  "s")

(setq bock_seit_an23 (polar  bock_seit_an20 0.0  5.1))
(setq bock_seit_an24 (polar  bock_seit_an23 w270  25.0))
(setq bock_seit_an25 (polar  bock_seit_an24 pi  5.1))
(setq bock_seit_an26 (polar  bock_seit_an25 w90  25.0))
;;;(setq bock_seit_an27 (polar  bock_seit_an26 0.0  3.4))
;;;(setq bock_seit_an28 (polar  bock_seit_an27 w270  25.0))
;;;(setq bock_seit_an29 (polar  bock_seit_an27 0.0  5.1))


(command "plinie"  bock_seit_an20 bock_seit_an23 bock_seit_an24 bock_seit_an25 "s"  )
;;;(command "plinie"  bock_seit_an20 bock_seit_an23 bock_seit_an24 bock_seit_an25 bock_seit_an26 bock_seit_an27 bock_seit_an28 "s"  )


;;----------------------- 2 Stufe ------------------------------------------------------

(setq bock_seit_an27 (polar  bock_seit_an11 0.0  3.4))
(setq bock_seit_an28 (polar  bock_seit_an27 w90  30.7))
(setq bock_seit_an29 (polar  bock_seit_an28 pi  3.4))

(command "plinie"  bock_seit_an11 bock_seit_an27 bock_seit_an28 bock_seit_an29 "s"  )

(setq bock_seit_an30 (polar  bock_seit_an29 w90  1.5))
(setq bock_seit_an31 (polar  bock_seit_an30 0.0  27.2))
(setq bock_seit_an32 (polar  bock_seit_an31 w270  1.5))

(command "plinie"  bock_seit_an29 bock_seit_an30 bock_seit_an31 bock_seit_an32 "s"  )  


(setq bock_seit_an33 (polar  bock_seit_an32 0.0  (-(* b2 (sqrt 2.0))27.2)))
(setq bock_seit_an34 (polar  bock_seit_an33 w90  3.4))
(setq bock_seit_an35 (polar  bock_seit_an34 pi  (-(* b2 (sqrt 2.0))27.2)))


(command "plinie"  bock_seit_an32 bock_seit_an33 bock_seit_an34 bock_seit_an35 "s"  )

(setq bock_seit_an36 (polar  bock_seit_an33 pi  3.4))
(setq bock_seit_an37 (polar  bock_seit_an36 w270  30.7))
(setq bock_seit_an38 (polar  bock_seit_an37 0.0  3.4))

(command "plinie"  bock_seit_an33 bock_seit_an36 bock_seit_an37 bock_seit_an38 "s"  )   


(setq bock_seit_an39 (polar  bock_seit_an37 pi  (-(* b2 (sqrt 2.0)) 6.8 )))
(setq bock_seit_an40 (polar  bock_seit_an39 w90  5.4))
(setq bock_seit_an41 (polar  bock_seit_an40 0.0  (-(* b2 (sqrt 2.0)) 6.8 )))

(command "plinie"  bock_seit_an37 bock_seit_an39 bock_seit_an40 bock_seit_an41 "s"  )

(setq bock_seit_an42 (polar  bock_seit_an36 pi  (-(* b2 (sqrt 2.0)) 6.8 )))
(setq bock_seit_an43 (polar  bock_seit_an42 w270  5.4))
(setq bock_seit_an44 (polar  bock_seit_an43 0.0  (-(* b2 (sqrt 2.0)) 6.8 )))

(command "plinie"  bock_seit_an36 bock_seit_an42 bock_seit_an43 bock_seit_an44 "s"  )

(setq bock_seit_an45 (polar  bock_seit_an36 0.0  5.1))
(setq bock_seit_an46 (polar  bock_seit_an45 w270  25.0))
(setq bock_seit_an47 (polar  bock_seit_an46 pi  5.1))


(command "plinie"  bock_seit_an36 bock_seit_an45 bock_seit_an46 bock_seit_an47 "s"  )

;;;;------------------------- 1 Stufe -----------------------------------------

bock_seit_an38

(setq bock_seit_an48 (polar  bock_seit_an38 0.0  27.2))
(setq bock_seit_an49 (polar  bock_seit_an48 w90  1.5))
(setq bock_seit_an50 (polar  bock_seit_an49 pi  27.2))

(command "plinie"  bock_seit_an38 bock_seit_an48 bock_seit_an49 bock_seit_an50 "s"  )  



(setq bock_seit_an51 (polar  bock_seit_an48 0.0  (- (+ (* Breite_3 (sqrt 2.0)) 4.0)27.2)))
(setq bock_seit_an52 (polar  bock_seit_an51 w90  3.4))
(setq bock_seit_an53 (polar  bock_seit_an52 pi  (- (+ (* Breite_3 (sqrt 2.0)) 4.0)27.2)))

(command "plinie"  bock_seit_an48 bock_seit_an51 bock_seit_an52 bock_seit_an53 "s"  )