It seems so simple

yet I cannot get it to work!

Dim NewTxt As AcadText
Dim TxtIPT As Variant
TxtIPT = ThisDrawing.Utility.GetPoint(, "Insertion
Point")
Set NewTxt = ThisDrawing.ModelSpace.AddText(QEID,
TxtIPT, 3.75)
NewTxt.StyleName = "Notes"
NewTxt.Alignment = acAlignmentMiddle

I want my text to have middle justification. Everything else works as
expected. If I leave the last line the text does not even get created. If
I comment out the last line, everything else works.

Any ideas. It seems too easy.


--
Heterosexual does NOT mean homophobic
White does NOT mean racist
Male does NOT mean sexist

To reply directly to me use DEODORANT

 

When you give a text entity an alignment other than acAlignmentLeft you must
provide the TextAlignmentPoint property as well. Just add this to the end
of what you posted:

NewText.TextAlignmentPoint = TxtPIT

HTH,
Jeff

 

The Text is probably sitting at the origin (0,0,0) - because if you use something other than acAlignmentLeft, AutoCAD uses either a combination of the Insert Point and the TextAlignment Point, or just the TextAlignment Point. For acAlignmentMiddle you need to set an textalignment point - check the Help for further assistance.

Scott

 

I knew it would be simple.

Thanks.