地理信息与系统二次开发4_数据获取.pptVIP

专题4：空间数据的获取 Data creation objects Opening an existing Workspace Use IWorkspaceFactory to return a Workspace object Generic interface for all sub-types of WorkspaceFactory OpenFromFile: Access an existing folder on disk Open: Connect to an existing database (e.g., ArcSDE) Getting a FeatureDataset IFeatureWorkspace interface on Workspace OpenFeatureDataset method Getting FeatureClasses Use IFeatureClassContainer to get existing FeatureClasses from a FeatureDataset Add a ShapeFile layer to a map Personal Geodatabase 例1 Dim pwfactory As IWorkspaceFactory Set pwfactory = New AccessWorkspaceFactory Dim pworkspace As IWorkspace Set pworkspace = pwfactory.OpenFromFile(App.Path + \data\pitt.mdb, 0) Dim pfw As IFeatureWorkspace Set pfw = pworkspace Dim pcover As IFeatureDataset Set pcover = pfw.OpenFeatureDataset(pitt) Dim pfcc As IFeatureClassContainer Dim pjx As IFeatureClass Set pfcc = pcover Set pjx = pfcc.ClassByName(base_roads) Dim pfl As IFeatureLayer Set pfl = New FeatureLayer Set pfl.FeatureClass = pjx Me.MapControl1.AddLayer pfl 例2 Path = App.Path \DATA\FHGIS.mdb Set m_pWSF = New AccessWorkspaceFactory Set m_pWS = m_pWSF.OpenFromFile(Path, 0) Set gFeatureLayers = New Collection Set g_pFeatWS = m_pWS Set pFeatClsCont = g_pFeatWS.OpenFeatureDataset(25) For i = 0 To pFeatClsCont.ClassCount - 1 Set pFeatlyr = New FeatureLayer Set pFeatCls = pFeatClsCont.Class(i) Set pFeatlyr.FeatureClass = pFeatCls strClassName = pFeatCls.AliasName pFeatlyr.NAME = strClassName gFeatureLayers.add pFeatlyr, strClassName Next I ……………… For i = 1 To gFeatureLayers.count Set pslayer = gFeatureLayers.Item(i) If pslayer.FeatureClass.AliasName = 境 界 Then MapControl.AddLayer player End If Next i ArcObjects地理信息系统二次开发 ArcObjects地理信息系统二次开发 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Table Fields Field 1 .. Dataset Workspace WorkspaceFactory AccessWorkspaceFactory Row * F