你好
我在验证我在VBA例程中创建的文本时遇到问题。当我使用此代码时:
- If ThisDrawing.ActiveSpace = acModelSpace Then
- Set txtPNum = ThisDrawing.ModelSpace.AddText(strPNum, varPNumIns, dblTHeight)
- Else
- Set txtPNum = ThisDrawing.PaperSpace.AddText(strPNum, varPNumIns, dblTHeight)
- End If
- txtPNum.Alignment = acAlignmentRight
- txtPNum.Update
文本在0,0,0处插入
如果注释掉对齐线,文本将插入预期位置。
我还插入了一些多行文字,但似乎找不到方法来设置对齐方式。在AutoCAD属性窗口中,有一个路线属性:-(
还有其他人遇到过这些问题吗?有人知道我做错了什么吗? |