Howto: 在ArcMap中设置地图单位

摘要： 在VBA中，默认的地图单位在MxDocument对象的NewDocument事件中，通过使用MapUnits的IMap Interface属性来进行设定。
内容：
1.启动ArcMap 2.打开Visual Basic Editor.在ArcMap中，选择Tools>Macros>Visual Basic Editor. 3.在Visual Basic 项目浏览中，选择Normal>ArcMap Objects,然后双击ThisDocument来打开代码窗口. 4.在Normal.mxt ThisDocument(Code)窗口中，选择MxDocument作为对象，NewDocument作为事件.见附件图片2 5.添加代码到MxDocument_NewDocument函数中，来设置默认的地图单位为英尺。 Dim pMxDoc as IMxDocument
Set pMxDoc = ThisDocument
Dim pMap as IMap
Set pMap = pMxDoc.FocusMap
pMap.MapUnits = esriFeet
你也可以设置默认的单位为任意ESRI测量单位。完整的参考请参阅ArcObjects Developers help下的esriUnits内容。
6.关闭Visual Basic Editor.
7.回到ArcMap窗口，双击数据框属性对话框。选择General项，注意地图单位.
8.关闭对话框，点新地图按扭.
9.双击数据框属性对话框。选择General项,注意到地图单位现在已经设定为英尺。以后每一个新的文档的创建，地图单位都将设为英尺.
如果要移除这个定制，删除掉在NewDocument event中的代码，或删除normal.mxt都可以。





创建时间：2005-04-08
最近更新：2005-04-08


【原文链接】
http://support.esrichina.com.cn/2005/0408/292.html