Topic: Help with text alignment

[Coder]

Hello guys.

I am facing a problem with the text alignment when it is not Left then the insertion point would be the same as the selected text.

Code - Auto/Visual Lisp: [Select]

1. (setq txt_val (getstring "\nNew string :"))
2. (setq txt_obj (ssget '((0 . "TEXT"))))
3. (setq copy_txt (vla-copy (vlax-ename->vla-object (ssname txt_obj 0))))
4. (vla-put-textstring copy_txt txt_val)
5.  
6. (while (= (car (setq vals (grread t 15 0))) 5)
7.     (redraw)
8.   (vlax-put-property copy_txt 'insertionpoint (vlax-3d-point (cadr vals)))
9.   )
10.  

Thank you in advance.

[Coder]

Solved with function 'TextAlignmentPoint instead of 'insertionpoint if justification is other than left.

[Lee Mac]

You may also refer to the functions aligntext:gettextinsertion & aligntext:puttextinsertion used as part of my Align Text program.

[Coder]

You may also refer to the functions aligntext:gettextinsertion & aligntext:puttextinsertion used as part of my Align Text program.

Wow, that's too advanced to me although I got your point with dxf 10 otherwise 11 
Thank you for your kind reply and time.

[cmwade77]

There is also my align text routine, probably a little simpler (especially if you ignore the supporting routine that reduces the MTEXT box sizes to the minimum needed) than Lee's, but Lee's code usually is better. In fact this is one of the few routines I have that doesn't have some of his code in it, at least I don't think I have any of his code here.

[Coder]

Thank you for your kind reply.