-- Vla-AddText ~ Justification Question --

[Lee Mac]

I have used "VLA-AddText" in the past, but there seems to be no input for a choice of justification for the text you are trying to create.

 

The text seems to always be created with a justification of bottom-left.

 

What is the easiest way to change the justification of such text? if indeed it can be changed?

 

As always, I thank you all for your time and patience

 

Cheers

 

Lee

[Se7en]

(vla-put-attachmentPoint (vlax-ename->vla-object (car (entsel))) acAttachmentPointMiddleLeft)

[Lee Mac]

Thanks John,

 

I see that works with MText only - out of interest, is there an equivalent for DTEXT?

 

Cheers

 

Lee

[Se7en]

Not sure. I'll have to look.

[Lee Mac]

Not sure. I'll have to look.

 

Cheers, I appreciate your time

 

The only other method I have used in this respect is to move the text using a vector obtained from a point on the edge or the center of the box generated by the (textbox) function. - which is a bit of a hassle...

[Se7en]

Looks like a pain; i think what you have to do is to:

Change the alignment point (Once you do this your text insertion point gets reset to 0,0 or something like that)

then you need to put the text back into position.

like:

(vla-put-Alignment <txtobj> acAlignmentMiddle)

(vla-put-TextAlignmentPoint <txtobj> (vlax-3d-point '<someptlist>))

 

There has to be a better way. I'll keep looking.

[Se7en]

?

( (lambda (/ <txtobj> <someptlist>)
   (setq <txtobj>     (vlax-ename->vla-object (car (entsel)))
         <someptlist> (vla-get-insertionpoint <txtobj>))
   (vla-put-Alignment <txtobj> acAlignmentMiddle)
   (vla-put-TextAlignmentPoint <txtobj> <someptlist>)) )

[Lee Mac]

Ahh I see - like having to specify the 11 DXF group code when 72 & 73 are non-zero.

 

That looks like a better method than what I was peviously doing - thanks John.

 

Lee