Hunderter Text auf einer Zeile

[Alhazred]

ich versuche, eine funktion zu schreiben, die mich die enden einer zeile auswählen lässt und dass automatisch einen text auf dieser zeile zentriert und in einer von ihr fixierten entfernung einfügen.
denn jetzt habe ich das geschrieben:

(defun c:centratesto( / pt1 pt2 ang ptc offs puntom)
(setq pt1 (getpoint 1))
(setq pt2 (getpoint 2))
(setq ang (winkel pt1 pt2))
(setq ang (/ (* ang 180) pi)
(setq ptc (/ (+car pt1) (car pt2)) 2.0) ; Zentralpunkt auf der x-achse
(setq offs (/ (+ (cadr pt1) 0.1) (+ (cadr pt2) 0.1)); zentralpunkt auf der achse y + 0.1, um den text von der zeile zu erhöhen
(setq puntom (list ptc offs))
(Befehl "_text" "_justify" "_mc" Pointm 0.1 ang "text")
(princ)
)

aber es funktioniert nur, wenn die linie horizontal ist, während die linie gekippt wird, desto mehr ist das schreiben nahe der linie, bis sie sich schneidet.

wie kann ich bekommen, was ich brauche?

 

[rpor66]

schauen sie sich die lispe an, finden sie 2 versionen ihres befehls, centertext wird geändert, wie sie es dachten, centertext2 ist für, wie ich es tun würde, vorausgesetzt, die verwendung von zeilen, wo der text platziert werden.

p.s.: einzel- und rppt-funktionen können bei vielen gelegenheiten nützlich sein.

bye

 

[Alhazred]

vielen dank