linlq986 发表于 2012-10-29 19:49:19

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

本帖最后由 linlq986 于 2012-10-29 19:49 编辑

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

sscylh 发表于 2012-10-30 23:40:17

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

linlq986 发表于 2012-11-1 19:19:58

实在很感谢
页: [1]
查看完整版本: 如何用vba取得选中文字,特性中的xy值