关于 AcadText 的插入点问题

Oceanable

Public Sub DrawText(Str As String, rPoint() As Double, TextHeight As Double)

Dim Text As AcadText

Set Text = ThisDrawing.ModelSpace.AddText(LTrim(Str), rPoint, TextHeight)

'Text.Alignment = acAlignmentCenter    加上这句就所有的 text 都在原点了，奇怪？？？

End Sub

zzyong00

你需要设计TextAlignmentPoint 的位置，不设置默认在原点吧

Oceanable

哦哦哦，谢谢，我以为Text.Alignment = acAlignmentCenter 就是设置 TextAlignmentPoint