如何用vba取得选中文字,特性中的xy值

linlq986

本人新手,哪位达人帮忙写下代码

sscylh

Sub aa()
Dim t As AcadText
ThisDrawing.Utility.GetEntity t, pt
Dim arr
arr = t.InsertionPoint
MsgBox arr(0) & "," & arr(1)
End Sub

linlq986

实在很感谢