(Defun C:TUER ()
  (Setvar "Cmdecho" 0)
  (Initget 7)
  (Setq A (Getdist "\nTuerbreite: "))
  (Initget 1)
  (Setq P1 (Osnap (Getpoint "\nAngelpunkt: ") "N„c"))
  (Setvar "Lastpoint" P1)
  (Initget 1)
  (Setq P2 (Osnap (Getpoint "\nGegenueberliegende Seite der Wand: ") "Lot"))
  (Initget 1)
  (Setq P3 (Osnap (Getpoint "\nAuf welcher Seite ist die Tuer: ") "N„c"))
  (Setq A1 (Angle P1 P3))
  (Setq P3 (Polar P1 A1 A))
  (Setq A2 (Angle P1 P2))
  (Setq P4 (Polar P3 A2 (Distance P1 P2)))
  (Setq P5 (Polar P1 (+ Pi A2) A))
  (Command "Bruch" P1 "E" P1 P3 "Bruch" P2 "E" P2 P4)
  (Command "Linie" P1 P2 "" "Linie" P3 P4 "" "Linie" P1 P5 "")
  (Command "Bogen" P3 "E" P5 "S" (Polar P3 (+ Pi A2) A))
  (Princ)
)

(Defun C:DURCHBRUCH ()
  (Setvar "Cmdecho" 0)
  (Initget 7)
  (Setq A (Getdist "\nBreite des Durchbruchs: "))
  (Initget 1)
  (Setq P1 (Osnap (Getpoint "\nAnfangspunkt: ") "N„c"))
  (Setvar "Lastpoint" P1)
  (Initget 1)
  (Setq P2 (Osnap (Getpoint "\nGegenueberliegende Seite der Wand: ") "Lot"))
  (Initget 1)
  (Setq P3 (Osnap (Getpoint "\nAuf welcher Seite ist der Durchbruch:") "N„c"))
  (Setq A1 (Angle P1 P3))
  (Setq P3 (Polar P1 A1 A))
  (Setq A2 (Angle P1 P2))
  (Setq P4 (Polar P3 A2 (Distance P1 P2)))
  (Command "Bruch" P1 P3 "Bruch" P2 P4)
  (Command "Linie" P1 P2 "" "Linie" P3 P4 "")
  (Princ)
)