[VBA程序]：文字的插入点为何不对？(问题代码见帖子内容)

ljylsx

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

mayijingcad

再加入文本之前 调用 application.zoomall
祝你好运！

ljylsx

'二楼楼主，我试了，可是还是不好使啊 ，我用的是CAD2002
Public Sub InsText()
Dim InsPoint(0 To 2) As Double, txt As AcadText
'文字插入点
InsPoint(0) = 100: InsPoint(1) = 100: InsPoint(2) = 0

Application.Zoomall

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

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

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