Justifying text in VBA

[Tyke]

Hi,

I am having a problem justifying text that I create in a VBA routine. When I use this code:


If ThisDrawing.ActiveSpace = acModelSpace Then
Set txtPNum = ThisDrawing.ModelSpace.AddText(strPNum, varPNumIns, dblTHeight)
Else
Set txtPNum = ThisDrawing.PaperSpace.AddText(strPNum, varPNumIns, dblTHeight)
End If

txtPNum.Alignment = acAlignmentRight
txtPNum.Update

The text is inserted at 0,0,0
If I comment out the alignment line the text is inserted in the expected position.

I also have some MText that I insert and I can't seem to find a method to set its alignment. In the AutoCAD Properties window there is an alignment property. :-(

Has anyone else encounted these problems and does anyone see what I'm doing wrong?

[dbroada]

does this thread help?
http://www.cadtutor.net/forum/showthread.php?41740-position-text-with-VBA

[Tyke]

Dave,
That works a treat for the text. Any ideas on the MText, it's not that important, but it's just bugging me.

Many thanks.

[dbroada]

sorry but I've (I@ve) never used MTEXT in VBA.

[Tyke]

Thats ok.
Many thanks for your help.