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,60 @@
+;-----------------------------
+; Change Text Stil 30.6.91 AW
+;-----------------------------
+(Defun C:Ts ()
+  (Setvar "Cmdecho" 0)
+  (Initget 1 "A S  ")
+  (Setq G (Strcase (Substr (Getkword "Auswahl/<Style>: ") 1 1)))
+  (Cond
+    ((= G "A")
+      (Setq A (Ssget))
+      (Setq B (Sslength A))
+      (Initget 1) (Setq C (Getstring "\nNew Textstyle: "))
+      (Extang C)
+      (While
+        (> B 0)
+          (Setq B (1- B))
+          (Setq D (Ssname A B))
+          (Setq D (Entget D))
+          (Setq E (Assoc 7 D))
+          (Setq F (Cons 7 C))
+          (Setq D (Subst F E D))
+          (Setq H (Assoc 51 D))
+          (Setq I (Cons 51 J))
+          (Entmod (Subst I H D))
+      )
+      (Setq A nil)
+    )
+    ((Or (= G "S") (= G ""))
+      (Initget 1)
+      (Setq A (Strcase (Getstring "\nOld Textstyle: ")))
+      (Initget 1) (Setq C (Getstring "\nNew Textstil: "))
+      (Setq D (Entnext))
+      (Extang C)
+      (While
+        D
+          (Princ ".")
+          (Setq E (Entget D))
+          (If
+            (And (= "TEXT" (Cdr (Assoc 0 E))) (= A (Cdr (Assoc 7 E))))
+              (Progn
+                (Setq F (Assoc 7 E))
+                (Setq G (Cons 7 C))
+                (Setq E (Subst G F E))
+                (Setq H (Assoc 51 E))
+                (Setq I (Cons 51 J))
+                (Entmod (Subst I H E))
+              )
+          )
+          (Setq D (Entnext D))
+      )
+    )
+  )  
+  (Princ)
+)
+
+(Defun Extang (A)
+  (Setq A (Tblsearch "STYLE" A))
+  (Setq J (Cdr (Assoc 50 A)))
+)
+