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...

[GreyHippo]

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.

[raghu7486]

Hi Thanks for the Code, is any one having a lisp that can align the text parallel to polyline with certain given distance means offsets from the source polyline.

Thanks in advance.