Oceanable 发表于 2019-5-1 12:34:00

关于 AcadText 的插入点问题

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 发表于 2019-5-2 21:21:00

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

Oceanable 发表于 2019-5-6 16:34:00

哦哦哦，谢谢，我以为Text.Alignment = acAlignmentCenter 就是设置 TextAlignmentPoint
页: [1]
查看完整版本: 关于 AcadText 的插入点问题