Question

vba如何得到文字插入点的x及y坐标

已解答，文字对象属性有 Insertionpoint项，前面没查到

Answer 1

Sub tellmestringposition()
Dim t As AcadMText
Dim myset As AcadSelectionSet
For Each myset In ThisDrawing.SelectionSets
If myset.Name = "aaa" Then
ThisDrawing.SelectionSets.Item("aaa").Delete
End If
Exit For
Next

Set myset = ThisDrawing.SelectionSets.Add("aaa")
myset.SelectOnScreen
For j = 0 To myset.Count - 1
If myset(j).ObjectName = "AcDbMText" Then
Set t = myset(0)
MsgBox "插入点X坐标为:" & Round(t.InsertionPoint(0), 0) & vbLf & "插入点Y坐标为:" & Round(t.InsertionPoint(1), 0)
End If
Next
End Sub