使用VBA定位文本

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

我打算使用以下代码定位文本，但它总是以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

添加文本对齐点：

copy


myText.Alignment = acAlignmentMiddleCenter
myText.TextAlignmentPoint = myPos

~'J'~

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

太好了-谢谢

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

不客气
干杯

~'J'~

[编程交流] 使用VBA定位文本

发表回复

精选推荐