[VBA程序]：关于单行文字的定位？

mlr_nj

请教大侠：怎样实现单行文字的定位？
比如我想让我的单行文字“1234567”出线在点：（2，2）
Sub Example_AddText()
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    ' Define the text object
    textString = "1234567"
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

End Sub
可以运行
但是一旦我指定对起点为中下时：
Sub Example_AddText()
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    ' Define the text object
    textString = "1234567"
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    textObj.Alignment = acAlignmentBottomCenter
End Sub
这时候，文字出线的位置就不是我所想要的地方了，我的本意是想让“1234567”中的“4”出线在（2，2）处。
我搞不懂单行文字中的对齐究竟是什么含义？
怎样才能实现我的想法：让单行文字出现在我指定的点，而且这行文字以该点为中心左右对称。

雪山飞狐(lzh)

Sub Example_AddText()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
' Define the text object
textString = "1234567"
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 0.5
' Create the text object in model space
Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
textObj.Alignment = acAlignmentMiddle
textObj.TextAlignmentPoint = insertionPoint
End Sub

mlr_nj

首先感谢版主lzh741206  ，
我确实是在想是不是还有个属性指定这个点，多谢版主提示。
另外，我如果只加了textObj.TextAlignmentPoint = insertionPoint，这样改了之后，还不行，因为对齐点虽然是（2，2），但是，我想让“4”这个字符位于（2，2）的想法实现不了，不知道为什么？
我看这个文字标注的属性：一、对齐点：（2，2，0）
二、几何图形位置：（0.4167，6，0）
我的想法是：几何图形位置（0.4167，6，0）
版主是用：acAlignmentMiddle对齐来解决这个问题的，但是我纳闷为什么顶中、底中对齐不行呢？是不是单行编辑默认的文字是个框框的范围？这个框框比单行字还高些？所以对齐不能实现？