(princ "Aussen Durchmesser eingeben: ")
(setq kreis0 (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 '(0 0)) (cons 40 (setq aussendurchmesser (/ (getdist) 2)))))
(princ "Wandstärke: ")									
(setq kreis1 (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 '(0 0)) (cons 40 (- aussendurchmesser (getdist)))))
(princ "\nRohr Durchmesser: ")
(setq rohrdurchmesser (/ (getdist) 2))
(princ "Koordinaten für erstes Rohr: ")
(setq kreis2 (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 (getpoint)) (setq rohrradius (cons 40 rohrdurchmesser))))
(princ "Teilung eingeben: ")
(setq Teilung (getdist))
(princ "koordinaten für zweites Rohr: ")
(setq kreis3 (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 (getpoint)) rohrradius))
(princ "Koordinaten für drittes Rohr: ")
(setq kreis4 (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 (getpoint)) rohrradius))
(entmake kreis0)
(entmake kreis1)
(entmake kreis2)
(entmake kreis3)
(entmake kreis4)