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 @@
+;-----------------------------
+; Text exportieren 30.6.91 AW
+; eingabaut in e3f8
+;------------------------------
+(Defun C:Export ()
+  (Setvar "Cmdecho" 0)
+  (Setq A (Getstring "\nDateiname: "))
+  (Setq B (Open A "r"))
+  (If
+     B
+      (Progn
+        (Princ "\nDatei existiert bereits.")
+        (Close B)
+        (Initget "J N")
+        (Setq X (Getkword "\nSoll sie �berschrieben werden? <N> "))
+        (If
+          (= X "J")
+            (Write-it)
+        )
+      )
+      (Write-it)
+  )
+  (Princ)
+)
+
+(Defun Write-it ()
+  (Setq C (Open A "w"))
+  (Prompt "\nDatei ge”ffnet.")
+  (Prompt "\nTexteintr„ge der Reihe nach w„hlen: ")
+  (Setq D 0)
+  (Setq E (Ssget))
+  (Setq F (Sslength E))
+  (Repeat F
+    (Setq G (Ssname E D))
+    (Setq H (Entget G))
+    (Setq I (Cdr (Assoc 1 H)))
+    (Write-line I C)
+    (Setq D (+ 1 D))
+  )
+  (Close C)
+)
+