在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-->加载该文件。
打字不易，望采纳，谢谢
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024