Align text to a line

[MillerMG]

Is there a command or a LISP (I have checked out LEE's but to no avail from what I found) that I can run say that will allow me to select text and then select a line and it be parallel with it? I know the command TEXT ALIGN but this doens't do what I am looking for, that, or I just don't know how to properly run the command? Any who, as always, thank you for any and all input.

 

Miller

[rkent]

This will work for your needs.

 

http://www.lee-mac.com/curvealignedtext.html

 

Scroll down and watch the demonstration on that page.

[MillerMG]

BOOM! Dang it! I had a feeling that he had something somewhere that I did not see. Thank you VERY much rkent! Kudos, Kudos!!

[rkent]

We are lucky to have such a talented and generous programmer among us.

[MillerMG]

I couldn't agree more. Even more kudos to Mr. Lee!!

[eldon]

Of course, if you do not want to use lisp, you can use the command Rotate.

 

With Polar tracking on and set to Relative to last segment, you start the command Rotate, pick the text, and using Osnap (Nearest will do nicely) click on your chosen line. The text immediately swings to parallel the line (or perpendicular to the line, or at any angle set up in Polar Tracking). Very quick.

[MillerMG]

Very useful as well as insightful. Thank you very much Eldon!

[BIGAL]

My $0.05

 

; text to 2 pts
; by Alan 2013
(defun C:T2pts ( / pt1 pt2 ang tobj vlobj)
(SETQ PT1 (GETPOINT "\nPick 1st pt" ))
(SETQ PT2 (GETPOINT "\nPick 2nd pt" ))
(setq ang (angle pt1 pt2))
(SETQ TOBJ (ENTSEL "\nPick Text"))
(setq vlobj (vlax-ename->vla-object (car tobj)))
(vlax-put-property vlobj "Rotation" ang)
)

[guran]

You can also use the command Torient

[MillerMG]

never heard of her

[MillerMG]

Thanks BigAl!

[Dadgad]

We are lucky to have such a talented and generous programmer among us.

 

+1 to rkent, mind reader.