1)，运行ArcMap，加载所需图层；
2)，Tools菜单/Macros(宏）/Visual Basic Editor(VB编辑器)，这样打开VB编辑器
3)，双击打开VB编辑器左上工程资源管理器中的Project/ArcMap对象/ThisDocument，把上面的代码粘进去。注意看首行Option Explicit如果有两行，就删除一行。
4)，点击VB编辑器工具栏的运行按钮运行（或菜单 运行/运行子过程），就可以了，再激活ArcMap可以看到发生了什么！
或者还有一种创建宏的方法（不过建议对ArcGIS VBA不大熟的同志不要用这种方法）：
1)，运行ArcMap，加载所需图层；
2)，Tools菜单/Macros(宏）/Macros，这样打开宏编辑器
3)，在宏名称中输入aaa，确定后，会打开VB编辑器，将看到有一个aaa的过程，没有实体。你把上面的aaa过程中的代码粘进去，然后在前面加上
Option Explicit（这个别重复了哈）
Dim dPoint(2, 1) As Double
就可以。
4)，点击VB编辑器工具栏的运行按钮运行（或菜单 运行/运行子过程），就可以了，再激活ArcMap可以看到发生了什么！
- 本文固定链接: https://www.chtfs.com/3948/
- 转载请注明: acer 于 测绘途夫 发表
这个作者貌似有点懒，什么都没有留下。