neue Folder LAYOUT MENU und MODULE dazu

2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
@@ -0,0 +1,42 @@
+(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)
+)
+