在VBA 如何获取AUTOCAD中图块的位置坐标

在VBA中，可以使用如下语句获得坐标位置：

Private Sub GetBlocksCoord()

Dim BlockObj As AcadBlock

For Each BlockObj In ThisDrawingBlocks ’在当前图形中查找所有块

DebugPrint BlockObjOrigin(0), BlockObjOrigin(1) '获取坐标

Next

Set BlockObj = Nothing '销毁变量

End Sub

把这段命令保存为VBA文件，在菜单工具-->Autolisp-->加载该文件。

获取点坐标的老办法是通过google earth寻找真实的位置，然后记录粗略的坐标，这种方法虽然有一定的误差，但小到是可以忽略的，大笑，重点是寻找起来很花时间，惊恐，找不找得到还两说，所以，经过高手的指引，安静，找到了一个简单的方法，就是利用百度的在线地图，来获取某一点的经纬度坐标。详细过程如下：

第一步，打开百度地图

第二步，打开最下面的地图开放平台，进而打开坐标拾取器

第三步，就可以提取坐标了，可以根据地点名称提取坐标，还可以试试坐标反查

获取坐标是按键精灵的基础 *** 作，但新手很多都不知道，现在来 *** 作一遍。

1、首先在桌面上打开按键精灵软件，如下图所示。

2、然后在打开的软件中，点击右下角这里，打开辅助功能。

3、另外也可以在编写代码中打开，点击新建。

4、点击软件导航上的抓抓打开，如下图所示。

5、打开之后点击左上角的放大镜。

6、最后在放大镜可以找到当前的鼠标坐标，通过快捷键可以快速保存这些关键的坐标位置。

高德地图查看经纬度和海拔 *** 作如下

一、打开高德地图网页版，页面最下方的一排蓝色字体中的开放平台并点击；

二、在新d出的界面内依次点击开发支持→地图工具→坐标拾取器；

三、在d出的界面内输入想要获取坐标的地点的名称，按下回车键，即可看到地点的经纬度。

在测绘行业里，有很多仪器可以获取一个地点的坐标，比如全站仪，gps接收机。目前，很多商业手机内置了gps芯片，使手机也有了获取位置坐标的功能。一般gps卫星会以经纬度的形式返回坐标，可以在编程语言中调用手机 *** 作系统提供的原生gps接口，就可以获取经纬度。另外，百度地图，高德地图也提供了获取坐标的接口，但是这个坐标是和地图所用坐标相对应的。

以上就是关于在VBA 如何获取AUTOCAD中图块的位置坐标全部的内容，包括:在VBA 如何获取AUTOCAD中图块的位置坐标、百度地图怎么获取坐标、按键精灵怎么获取角色坐标并用按键移动到目标位置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！