文字的插入点为何不对？(问题代码见帖子内容)

stulsx

Public Sub InsText()
Dim InsPoint(0 To 2) As Double, txt As AcadText
'文字插入点
InsPoint(0) = 100: InsPoint(1) = 100: InsPoint(2) = 0

'插入文字(单文本)
Set txt = ThisDrawing.ModelSpace.AddText("WENZI", InsPoint, 5)

'设置文本的对齐方式
txt.Alignment = acAlignmentBottomLeft

'执行之后为文字的什么插入点不是 InsPoint--(100,100,0),而是(0,0,0)?
End Sub

tiger8888

将txt.Alignment = acAlignmentBottomLeft行删除 或再增加一行txt.TextAlignmentPoint = InsPoint

stulsx

谢谢你，问题得到解决了！


还有一个问题这个变量 文本对象的VerticalAlignment属性为什么不能用呢？为什么垂直的对其点我不能用呢？我现在的问题是垂直的对齐点不能使用呢？是否单文本的不能用垂直对齐点呢？

雪山飞狐_lzh

' Note that the VerticalAlignment property must be changed first,
' and to a value that requires the TextAlignmentPoint, before the
' TextAlignmentPoint property will allow a value to be set.