LISP to make text middle justified

[ryankevin15]

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

[ryankevin15]

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.

[StevJ]

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

 

Steve

[iconeo]

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;

[ryankevin15]

bump bump bump bump

[Grrr]

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.

[ryankevin15]

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.