Howto: 在ArcMap使用VBA设置默认的地图单位

摘要： 在VBA中，默认的地图单位是在MxDocument 对象的NewDocument 事件中使用IMap接口的MapUnit属性来设置的。
内容： 过程如下：
1 启动ArcMap
2 打开Visual Basic Editor。
在 ArcMap中, select Tools > Macros > Visual Basic Editor.
3 在Visual Basic 工程浏览器中，选择Normal> ArcMap 对象，并双击ThisDocument来打开代码窗口。
4 在Normal.mxt 的ThisDouments代码窗口中，选择MxDocument对象的NewDocument事件。
5 添加下列代码到MxDocument_NewDocument 函数来设置默认的地图单位。

Dim pMxDoc as IMxDocument
Set pMxDoc = ThisDocument

Dim pMap as IMap
Set pMap = pMxDoc.FocusMap

pMap.MapUnits = esriFeet '例子中单位为英尺
注意：你可以设置任意的ESRI的量测单位为默认的单位。
6 关闭Visual Basic Editor.
7 回到ArcMap窗口，双击数据框，打开数据框窗口属性对话框，选择常规页，注意地图单位。
8 关闭对话框，并且单击新建地图按钮。
9 然后，再一次双击数据框打开数据框属性对话框，选择常规页，注意此时地图单位已经设为了英尺。以后每一个新的地图文档创建时，地图单位都将被设置为英尺。
注意：如要删除此设置，只需删除NewDocument事件下的代码即可，或者删除你的normal.mxt。




创建时间：2004-12-03
最近更新：2004-12-03


【原文链接】
http://support.esrichina.com.cn/2004/1203/352.html