;-------------------
; 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) 
) 
