ArcObjects创建shp要素类

百花草 · 发表于 2009-12-3 22:18

下面创建一个shp要素类，其他工作空间类似
Dim pWS As IWorkspace
      Dim pWSF As IWorkspaceFactory
      pWSF = New ShapefileWorkspaceFactory
      pWS = pWSF.OpenFromFile("C:\Program Files\ESRI\MapObjects2\Samples\Data\Mexico", 0)
      Dim pFields As IFields
      pFields = New Fields
      Dim pFieldsEdit As IFieldsEdit
      pFieldsEdit = pFields
      pFieldsEdit.FieldCount_2 = 3
      Dim pFE As IFieldEdit
      Dim pF As IField
      pF = New Field
      pFE = pF
      With pFE
         .Name_2 = "ObjectID"
         .AliasName_2 = "FID"
         .Type_2 = esriFieldType.esriFieldTypeOID
      End With
      pFieldsEdit.Field_2(0) = pF
      pF = New Field
      pFE = pF
      With pFE
         .Name_2 = "NAME"
         .AliasName_2 = "Name"
         .Type_2 = esriFieldType.esriFieldTypeString
      End With
      pFieldsEdit.Field_2(1) = pF
      Dim pGeoDef As IGeometryDef
      pGeoDef = New GeometryDef
      Dim pGeoDefEdit As IGeometryDefEdit
      pGeoDefEdit = pGeoDef
      Dim pSR As ISpatialReference
      Dim pFeatLyr As IFeatureLayer
      pFeatLyr = New FeatureLayer
      Dim pMap As IMap
      pMap = AxMapControl1.Map

      pSR = pMap.SpatialReference
      pGeoDefEdit.SpatialReference_2 = pSR
      pGeoDefEdit.GeometryType_2 = esriGeometryType.esriGeometryPoint
      pF = New Field
      pFE = pF
      With pFE
         .Name_2 = "Shape"
         .AliasName_2 = "shape"
         .Type_2 = esriFieldType.esriFieldTypeGeometry
         .GeometryDef_2 = pGeoDefEdit
      End With
      pFieldsEdit.Field_2(2) = pF
      Dim pFeatWS As IFeatureWorkspace
      pFeatWS = pWS
      pFeatWS.CreateFeatureClass("china", pFields, Nothing, Nothing, esriFeatureType.esriFTSimple, "Shape", "")
      AxMapControl1.Refresh()