Archived Forums

set pGeomDef = New GeometryDef
Set pGeomDefEdit = pGeomDef
With pGeomDefEdit
    .GeometryType = esriGeometryPolygon ' sets geometry type (currently polygon)
    Set pSpatRef = pMap.SpatialReference
    If (pSpatRef Is Nothing) Then ' if current map has no spatial ref
        Set .SpatialReference = New UnknownCoordinateSystem ' assign null reff
    Else
        Set .SpatialReference = pMap.SpatialReference ' else use maps spatial ref
    End If
End With
Set pFieldEdit.GeometryDef = pGeomDef

pFieldsEdit.AddField pField2
Next intCountfield
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

 'Create the shapefile
' (some parameters apply to geodatabase options and can be defaulted as Nothing)
Dim pFeatClass As IFeatureClass
Set pFeatClass = pFeatureWorkspace.CreateFeatureClass(strNameNewPolygone, pFields, Nothing, Nothing, esriFTSimple, strShapeFieldName, "")
' Add to current map
Set pFeatureLayer = New FeatureLayer
Set pFeatureLayer.FeatureClass = pFeatClass
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName
pMap.AddLayer pFeatureLayer

Dim pClone As IClone
Dim pSpatRef As ISpatialReference
For intCountfield = 0 To intField
Set pField = pFeatureLayer.FeatureClass.Fields.Field(intCountfield)
Set pClone = pField
Set pFields2 = New esriCore.Fields
Set pField2 = pClone.Clone
Set pFieldsEdit = pFields2

Set pField2 = New esriCore.Field
Set pFieldEdit = pField2

pFieldEdit.Name = strNameNewPolygone
pFieldEdit.Type = esriFieldTypeGeometry

Set pGeomDef = New GeometryDef
Set pGeomDefEdit = pGeomDef
With pGeomDefEdit
    .GeometryType = esriGeometryPolygon ' sets geometry type (currently polygon)
    Set pSpatRef = pMap.SpatialReference
    If (pSpatRef Is Nothing) Then ' if current map has no spatial ref
        Set .SpatialReference = New UnknownCoordinateSystem ' assign null reff
    Else
        Set .SpatialReference = pMap.SpatialReference ' else use maps spatial ref
    End If
End With
Set pFieldEdit.GeometryDef = pGeomDef

pFieldsEdit.AddField pField2
Next intCountfield

Dim pClone As IClone
Dim pSpatRef As ISpatialReference
Set pFields = pFeatureLayer.FeatureClass.Fields 
Set pClone = pFields
Set pFields2 = New esriCore.Fields
Set pFields2 = pClone.Clone

Set pFieldEdit = pField2
'
pFieldEdit.Name = strNameNewPolygone
pFieldEdit.Type = esriFieldTypeGeometry
'
Set pGeomDef = New GeometryDef
Set pGeomDefEdit = pGeomDef
pGeomDefEdit.GeometryType = esriGeometryPolygon
Set pSpatRef = pMap.SpatialReference
Set pGeomDefEdit.SpatialReference = pMap.SpatialReference
Set pFieldEdit.GeometryDef = pGeomDef


 'Create the shapefile
' (some parameters apply to geodatabase options and can be defaulted as Nothing)
Dim pFeatClass As IFeatureClass
Set pFeatClass = pFeatureWorkspace.CreateFeatureClass(strNameNewPolygone, pFields, Nothing, Nothing, esriFTSimple, strShapeFieldName, "")
' Add to current map
Set pFeatureLayer = New FeatureLayer
Set pFeatureLayer.FeatureClass = pFeatClass
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName
pMap.AddLayer pFeatureLayer