Set Extent of feature class

01-26-2012 01:13 AM
New Contributor
Hi,is there any way to set the Extent of the feature classes I create with this code? I am exporting features from a feature class to new feature classes and I need them with a specific extension:


Dim pSelSet As ISelectionSet
Set pSelSet = pFeatSel.SelectionSet

'Define the output feature class name

Dim pFeatureClassName As IFeatureClassName
Set pFeatureClassName = New FeatureClassName

Dim pOutDatasetName As IDatasetName
Set pOutDatasetName = pFeatureClassName

pOutDatasetName.Name = "Export_" & j + 1

Dim pWorkspaceName As IWorkspaceName
Set pWorkspaceName = New WorkspaceName

pWorkspaceName.PathName = "C:\Split"

pWorkspaceName.WorkspaceFactoryProgID = "esriCore.shapefileworkspacefactory.1"

Set pOutDatasetName.WorkspaceName = pWorkspaceName

pFeatureClassName.FeatureType = esriFTSimple

pFeatureClassName.ShapeType = esriGeometryAny

pFeatureClassName.ShapeFieldName = "Shape"

Dim pExportOp As IExportOperation
Set pExportOp = New ExportOperation

pExportOp.ExportFeatureClass pInDsName, Nothing, pSelSet, Nothing, pOutDatasetName, 0

0 Kudos
0 Replies