在VBA中，可以使用如下语句获得坐标位置：
Private Sub GetBlocksCoord()
Dim BlockObj As AcadBlock
For Each BlockObj In ThisDrawing.Blocks ’在当前图形中查找所有块
Debug.Print BlockObj.Origin(0), BlockObj.Origin(1) '获取坐标
Next
Set BlockObj = Nothing '销毁变量
End Sub
把这段命令保存为VBA文件，在菜单工具-->Autolisp-->加载该文件。
AcadBlock的属性Origin，就是它的坐标值，
Origin（0）是X坐标，Origin（1）是Y坐标
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024