Mtext align lisp

[gmmdinesh]

Hi. Everyone.

 

I need a simple lisp to align text or mtext.

Process Like: (select object->Specify alignment point-> then pick the point and stretch customizable by user.

(Text Alignment automatically in vertical, Justification keep also Left side).

 

 

Any help is greatly appreciated.

Thanks In Advance

Dinesh P

[BIGAL]

This is about as simple as it gets

 

(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)
)
(C:T2pts)

[gmmdinesh]

Hi BIGAL,

This lisp rotates the text.

But I do not need it, I need to lisp the image as it appears on.

and i'm using 2014 Autocad in my office, There is no TEXT ALIGN command in 2014 version.

so I want lisp for just select objects and click the alignment point and stretch can be set my preference.

 

Regards

Dinesh P