5 添加图层.txt

ao的一些代码集合

'添加图层
Sub AddLayer() 

  Dim wksFact As IWorkspaceFactory     '工作空间管理器
  Dim wks As IFeatureWorkspace    '要素工作空间
  Dim fc As IFeatureClass    '要素类
  Dim lyr As IFeatureLayer    '要素层
  Dim ds As IDataset    '数据集
  Dim mxDoc As IMxDocument    '地图文档
  Dim map As IMap    '地图

  Set wksFact = New ShapefileWorkspaceFactory    '创建Shape工作空间管理器 
  Set wks = wksFact.OpenFromFile(“c:\Data\shp”, 0)    '获取工作空间 
  Set fc = wks.OpenFeatureClass(“BigCypress”)    '获取要素类 
  Set lyr = New FeatureLayer    '创建要素层 
  Set lyr.FeatureClass = fc    '向要素层中添加要素类 
  Set ds = fc    '获取数据集 
  lyr.Name = ds.Name    '用要素类的名称命名要素层
  Set pDoc = Application.Document    '获取当前地图文档  
  Set mxmap = mxDoc.FocusMap    '获取当前地图 
  map.AddLayer lyr    '添加图层
 
End Sub