社区 › Auto Lisp › 使用VBA定位文本

dbroada 发表于 2022-7-6 12:17:32

使用VBA定位文本

我打算使用以下代码定位文本，但它总是以0,0结尾。我做错了什么？
 
Private Sub CommandButton2_Click()
Dim myString As String
Dim Pos(2) As Double
Dim myText As AcadText
Dim myPos As Variant
Pos(0) = 43.62: Pos(1) = 43.03: Pos(2) = 0
myPos = Pos
Set myText = ThisDrawing.ModelSpace.AddText(txtIssue.Text, myPos, 4)
myText.color = acCyan
myText.Alignment = acAlignmentMiddleCenter
ThisDrawing.Regen acAllViewports
End Sub

fixo 发表于 2022-7-6 12:44:29

 
添加文本对齐点：

myText.Alignment = acAlignmentMiddleCenter
myText.TextAlignmentPoint = myPos
 
~'J'~

dbroada 发表于 2022-7-6 12:59:09

太好了-谢谢

fixo 发表于 2022-7-6 13:23:34

 
不客气
干杯
 
~'J'~

查看完整版本: 使用VBA定位文本