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
您当前的位置：
减小字体
增大字体
