align text to a line.

[Chris Matira]

anyone got a lisp routine that makes a text align parallel to a line?

i'm having a lot of time spent rotating text to make it parallel to a line.. this would really help...

thanks...

[kennet.sjoberg]

Here is a simple code in the fly for you to start with
no errorhandler, no user trapping security
just rotate selected text equal to one selected line.

(defun c:AlignText (/ VlaObjLine LinAngle VlaObjText )
(vl-load-com )
(setq VlaObjLine (vlax-ename->vla-object (car (entsel "Select the line : " ))) )
(setq LinAngle (vla-get-Angle VlaObjLine ) )
(while (setq VlaObjText (vlax-ename->vla-object (car (entsel "Select the text : " ))))
(vla-put-Rotation VlaObjText LinAngle )
(vlax-release-object VlaObjText )
)
(vlax-release-object VlaObjLine )
(princ)
)

: ) Happy Computing !

kennet

[Chris Matira]

thanks kenneth...

[boesiii]

If you have Express then it has a command that does that also, it's called torient, but it asks for two points to get the rotation angle instead of a line.