ArcMapMxd文档制作基本准则

ArcMapMxd文档制作基本准则 

ArcMap的Mxd文档可以保存图层的索引信息和各个图层数据的表达规则（包括符号、显示范围、透明度等等），是GIS分析结果表达和多源数据集成显示的重要成果。根据个人经验，给出一些基本准则，欢迎大家补充：

1）确定你的文档是不是需要保存为相对路径

有些时候，我们希望mxd文档和很多图层文件同步移动，但是有些时候则希望移动mxd文档即可（特别是数据在sde或者局域网共享目录时），该设置可通过File->Map Properties->Data Source Options中的选项进行切换；

2）设置图层分级显示

在一个地区的GIS分析过程中，我们得到的图层往往有一定的分级规律。通过简单的可视范围的设置，即可在合适的比例尺下显示相应的图层，可以使得地图的显示速度更快、显示效果更好。可以通过图层右键菜单中的Visible Scale Range中的选项进行设置，或者在Layer Properties的General选项卡中进行手工调整。如果要实现一个图层的分级显示，比较通用的方法就是使用Define Query建立多个图层，然后通过可视范围控制各个图层的显示与否；当然编程也是可以的，如上篇文章所示。

3）图片资料的使用

ArcMap默认对Raster数据进行直方图拉伸，如果你发现在Arcmap中你的图像资料显示色调不正常，那么就在Symbology选项卡中将Stretch的Type选择为None即可。

在VBA中调试成功，稍作修改可以用于复杂网络的分级显示，呵呵

Dim WithEvents pp As Map
Dim tt As IMap
Dim str As String
Dim pFLDef As IFeatureLayerDefinition

Private Sub pp_ViewRefreshed(ByVal view As esriCarto.IActiveView, ByVal phase As esriCarto.esriViewDrawPhase, ByVal data As Variant, ByVal envelope As esriGeometry.IEnvelope)
    str = """等级路面-ID"" >" & Int(tt.MapScale / 800)
    pFLDef.DefinitionExpression = str
    Debug.Print "View: "; str
End Sub

Sub main()
    Dim md As IMxDocument
    Set md = ThisDocument
    Set pp = md.FocusMap
    Set tt = pp
    Dim pFLayer As IFeatureLayer
    Set pFLayer = tt.Layer(2)
    ' Set the definition query of the layer
    Set pFLDef = pFLayer
    ' QI from the FeatureLayer
    ' set the definition expression  pMxDoc.ActiveView.Refresh
End Sub