42 lines
1.3 KiB
Common Lisp
42 lines
1.3 KiB
Common Lisp
(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)
|
|
)
|
|
|