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,54 @@
+;----------------------------
+; Text H”he „ndern 30.6.91
+; eingabut in e3f4
+;---------------------------
+(Defun C:Tsz (/ G A B C D E F)
+  (Setvar "Cmdecho" 0)
+  (Initget 1 "A H  ")
+  (Setq G (Strcase (Substr (Getkword "Height/<Select>: ") 1 1)))
+  (Cond
+    ((Or (= G "S") (= G ""))
+      (Setq A (Ssget))
+      (Setq B (Sslength A))
+      (Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
+      (While
+        (> B 0)
+          (Setq B (1- B))
+          (Setq D (Ssname A B))
+          (Setq D (Entget D))
+          (If (= "TEXT" (Cdr (Assoc 0 D)))
+            (progn
+            (Setq E (Assoc 40 D))
+            (Setq F (Cons 40 C))
+            (Entmod (Setq D (Subst F E D)))))
+      )
+      (Setq A nil)
+    )
+    ((= G "H")
+      (Initget 7) (Setq A (Getdist "\nOld Text-Height: "))
+      (Setq B (Fix (* 100 A)))
+      (Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
+      (Setq D (Entnext))
+      (Setq E (Cons 40 C))
+      (While
+        D
+          (Princ ".")
+          (Setq F (Assoc 0 (Entget D)))
+          (If
+            (= "TEXT" (Cdr F))
+              (Progn
+                (Setq F (Assoc 40 (Entget D)))
+                (Setq G (Fix (* 100 (Cdr F))))
+                (If
+                  (= B G)
+                  (Entmod (Subst E F (Entget D)))
+                )
+              )
+          )
+          (Setq D (Entnext D))
+      )
+    )
+  )  
+  (Princ)
+)
+