请问：用VBA怎样使单行文字（即AddLine)的对齐分式为居中！！请高手帮忙！！

路边

请问：用VBA怎样使单行文字（即AddLine)的对齐分式为居中！！请高手帮忙！！

例如：Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式
Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式
mytxt.fontFile = "c:\windows\fonts\SIMKAI.TTF" '设置字体文件为楷体
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(0, 0) '设置字体角度为0
ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt

call ThisDrawing.ModelSpace.addtext（"hello",p,5)  '写单行文字hello

hello是以p点左对齐的。

请问：怎样使hello以p点居中？

请各位仁兄帮忙！！！非常感谢！！！

路边

AddLine 应为 Addtext !   请帮忙！！！感谢！！！！

wyj7485

dim txt

set txt=ThisDrawing.ModelSpace.addtext（"hello",p,5)

txt.Alignment = acAlignmentMiddleCenter
txt.TextAlignmentPoint = p

路边

非常感谢！！！