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

关于 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:11

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

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

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