LISP to make text middle justified

Hello, Is there a LISP to make text middle justified?

And, preferably begin the move command grabbing the center basepoint, since that's usually what happens next in order to move it to the middle of an object.

Take a look at this as maybe a place to start.

Steve

I use the following as a macro.

^C^C(COMMAND "LAYER" "M" "S-ANNO-TEXT" "C" "7" "" "") 'textstyle standard 'textsize $M=$(if,$(=,$(getvar,cvport),1),0.0703125,$(*,0.0703125,$(getvar,dimscale))) mtext \j bc w 0;

bump bump bump bump

One of the first associations I did was from this code from Tharwat,

pointing out this fragment from his code:

(progn
 (vla-put-attachmentpoint mt acmiddlecenter)
 (vla-move mt (vla-get-insertionpoint mt) p)
)

Later I was doing such stuff in my codes aswell, but I'll always remember that thread he helped me.

One of the first associations I did was from this code from Tharwat,

pointing out this fragment from his code:

(progn
 (vla-put-attachmentpoint mt acmiddlecenter)
 (vla-move mt (vla-get-insertionpoint mt) p)
)

 

Later I was doing such stuff in my codes aswell, but I'll always remember that thread he helped me.

(DEFUN C:mJ ()
(progn
 (vla-put-attachmentpoint mt acmiddlecenter)
 (vla-move mt (vla-get-insertionpoint mt) p)
)
(princ)
)

Thank you for trying but it doesn't look like that one worked.