26 lines
815 B
Common Lisp
26 lines
815 B
Common Lisp
;-------------------
|
|
; 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)
|
|
)
|
|
|