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,26 @@
+;-------------------
+; Text einpassen
+; eingebaut in e3f2
+;------------------- 
+(Defun C:Teinpass () 
+       (Setq S (Entsel "\nPick the text ")) 
+       (Setq S (Car S)) 
+       (Setq E (Entget S)) 
+       (Setvar "Orthomode" 1) 
+       (Setq P1 (Cdr (Assoc 10 E))) 
+       (Setq P3 (Getdist P1 "\nPick the end of the text: ")) 
+       (Setq P1 (Getpoint "\nNew first Point: ")) 
+       (Setq P2 (Getpoint P1 "\nNew second Point: ")) 
+       (Setq OLD (Assoc 41 E)) 
+       (Setq RATIO (* (/ (Distance P1 P2) P3) (Cdr OLD))) 
+       (Setq RATIO (Cons 41 RATIO)) 
+       (Setq E (Subst Ratio OLD E)) 
+       (Setq P1 (Cons 10 P1)) 
+       (Setq P2 (Cons 11 P2)) 
+       (Setq OLD (Assoc 10 E)) 
+       (Setq E (Subst P1 OLD E)) 
+       (Setq OLD (Assoc 11 E)) 
+       (Entmod (Subst P2 OLD E)) 
+       (Print) 
+) 
+