(setq a (getdist "Flansch Aussendurchmesser eingeben:"))
(setq a1 (getdist "Flansch Innendurchmesser eingeben:"))
(setq b (getdist "Lochkreis eingeben:"))
(setq b1 (/ b 2))
(setq c (getdist "Schrauben-Lochdurchmesser eingeben:"))
(setq c1 (getint "Anzahl Schrauben eingeben:"))
(setq d (getdist "Flansch Dicke eingeben:"))
(setq kreis0 (list (cons 0 "circle") (cons 8 "AM_0") '(10 0 0 0) (cons 40 (setq aussendurchmesser0 (/ a 2)))))
(setq kreis1 (list (cons 0 "circle") (cons 8 "AM_7") '(10 0 0 0) (cons 40 (setq aussendurchmesser1 (/ b 2)))))
(setq kreis2 (list (cons 0 "circle") (cons 8 "AM_0") (List 10 0 b1 0) (cons 40 (setq aussendruchmesser2 (/ c 2)))))
(setq Mlinie0 (list (cons 0 "line") (cons 8 "AM_7") (List 10 0 (- b1 (/ c 2) 5) 0) (List 11 0 (+ b1 (/ c 2) 5) 0)))
(setq kreis3 (list (cons 0 "circle") (cons 8 "AM_0") '(10 0 0 0) (cons 40 (setq aussendruchmesser3 (/ a1 2)))))
(setq linie0 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ a 2) b 0) (List 11 (- 0 (/ a 2)) b 0)))
(setq linie1 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ a 2) b 0) (List 11 (/ a 2) (+ b d) 0)))
(setq linie2 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ a 2) (+ b d) 0) (List 11 (- 0 (/ a 2)) (+ b d) 0)))
(setq linie3 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- 0 (/ a 2)) (+ b d) 0) (List 11 (- 0 (/ a 2)) b 0)))
(setq Mlinie1 (list (cons 0 "line") (cons 8 "AM_7") (List 10 b1 (- b 5) 0) (List 11 b1 (+ b d 5) 0)))
(setq Mlinie2 (list (cons 0 "line") (cons 8 "AM_7") (List 10 (- 0 b1) (- b 5) 0) (List 11 (- 0 b1) (+ b d 5) 0)))
(setq linie4 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- 0 (+ b1 (/ c 2))) b 0) (List 11 (- 0 (+ b1 (/ c 2))) (+ b d) 0)))
(setq linie5 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- 0 (- b1 (/ c 2))) b 0) (List 11 (- 0 (- b1 (/ c 2))) (+ b d) 0)))
(setq linie6 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (+ b1 (/ c 2)) b 0) (List 11 (+ b1 (/ c 2)) (+ b d) 0)))
(setq linie7 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- b1 (/ c 2)) b 0) (List 11 (- b1 (/ c 2)) (+ b d) 0)))
(setq linie8 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (- 0 (/ a1 2)) b 0) (List 11 (- 0 (/ a1 2)) (+ b d) 0)))
(setq linie9 (list (cons 0 "line") (cons 8 "AM_0") (List 10 (/ a1 2) b 0) (List 11 (/ a1 2) (+ b d) 0)))
(entmake kreis0)
(entmake kreis1)
(entmake kreis2)
(setq kreis2-fertig (entlast))
(command "_rotate" kreis2-fertig "" (List 0 0 0) (/ 360 c1 2))
(entmake Mlinie0)
(setq Mlinie-fertig (entlast))
(command "_rotate" Mlinie-fertig "" (List 0 0 0) (/ 360 c1 2))
(entmake kreis3)
(entmake linie0)
(entmake linie1)
(entmake linie2)
(entmake linie3)
(entmake Mlinie1)
(entmake Mlinie2)
(entmake linie4)
(entmake linie5)
(entmake linie6)
(entmake linie7)
(entmake linie8)
(entmake linie9)
(command "_array" kreis2-fertig "" "_P" (List 0 0 0) c1 360 "J")
(command "_array" Mlinie-fertig "" "_P" (List 0 0 0) c1 360 "J")