如何将所画多边形保存为Shape文件

<P>我用鼠标画出一些多边形，想将之存为Shape文件，但不知怎么去做，那个兄弟给个思路？多谢了！</P>
<P>所画多边形如图所示：</P>

<P>SaveToFile Method (esriCatalog)</P><P>    </P><P>Saves the graph to a file. </P><P>Syntax</P><P>object.SaveToFile (FileName )</P><P>The SaveToFile method syntax has the following object qualifier and arguments:</P><P>Part Description
object An object expression that evaluates to an object in the Applies To list.
FileName Required. A string expression that represents the FileName. </P><P>Product Availability</P><P>Available with ArcGIS Desktop.</P>

哈哈,我是APRIL,在ARCENGINE中也可以用这个方法的.

那多多来支持了

<P>我的本意是生成Polygon Shape后，用它进行裁切的。现在做出来了，我将代码贴上，希望对大家能所帮助：</P><P>1、创建Shape文件</P><P>Public Function CreateShapefile(sPath As String, sName As String, sSpatial As ISpatialReference) As IFeatureClass  ' Dont include .shp extension
  
   ' Open the folder to contain the shapefile as a workspace
   Dim pFWS As IFeatureWorkspace
   Dim pWorkspaceFactory As IWorkspaceFactory
   Set pWorkspaceFactory = New ShapefileWorkspaceFactory
   Set pFWS = pWorkspaceFactory.OpenFromFile(sPath, 0)
  
   ' Set up a simple fields collection
   Dim pFields As IFields
   Dim pFieldsEdit As IFieldsEdit
   Set pFields = New Fields
   Set pFieldsEdit = pFields
  
   Dim pField As IField
   Dim pFieldEdit As IFieldEdit
  
   ' Make the shape field
   ' it will need a geometry definition, with a spatial reference
   Set pField = New Field
   Set pFieldEdit = pField
   pFieldEdit.Name = "Shape"
   pFieldEdit.Type = esriFieldTypeGeometry
  
   Dim pGeomDef As IGeometryDef
   Dim pGeomDefEdit As IGeometryDefEdit
   Set pGeomDef = New GeometryDef
   Set pGeomDefEdit = pGeomDef
   With pGeomDefEdit
     .GeometryType = esriGeometryPolygon
     Set .SpatialReference = sSpatial ' New UnknownCoordinateSystem
   End With
   Set pFieldEdit.GeometryDef = pGeomDef
   pFieldsEdit.AddField pField
  
   ' Add another miscellaneous text field
   Set pField = New Field
   Set pFieldEdit = pField
   With pFieldEdit
       .length = 30
       .Name = "MiscText"
       .Type = esriFieldTypeString
   End With
   pFieldsEdit.AddField pField
  
   ' Create the shapefile
   ' (some parameters apply to geodatabase options and can be defaulted as Nothing)
   Dim pFeatClass As IFeatureClass
   Set pFeatClass = pFWS.CreateFeatureClass(sName, pFields, Nothing, _
                                            Nothing, esriFTSimple, "Shape", "")
                                            
   Set CreateShapefile = pFeatClass
End Function
2、然后用得到的IpointCollection写入到Shape文件中</P><P>Public Sub InsertPolygonFeatures(pFeatureClass As IFeatureClass, sPointColl As IPointCollection) ', numberToCreate As Long)
  
   Dim pFeatureBuffer As IFeatureBuffer
   Dim pPoint As IPoint
   Dim pPointCollection As IPointCollection
   Dim pTopo As IPolygon 'ITopologicalOperator
   Dim pFeatureCursor As IFeatureCursor
   Set pFeatureCursor = pFeatureClass.Insert(True)
  
   Set pFeatureBuffer = pFeatureClass.CreateFeatureBuffer
   Set pTopo = sPointColl
   pTopo.Close
  
   Set pFeatureBuffer.Shape = pTopo
   pFeatureCursor.InsertFeature pFeatureBuffer</P><P>   pFeatureCursor.Flush
End Sub
</P>

创建shapefile文件，字段不是自定义而是取已存在图层的。

Public Function CreateShapefile(pOriginalFeatCls As IFeatureClass, sPath As String, sName As String) As IFeatureClass
Dim pFWS As IFeatureWorkspace
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New ShapefileWorkspaceFactory
Set pFWS = pWorkspaceFactory.OpenFromFile(sPath, 0)
Dim pFields As IFields
Set pFields = pOriginalFeatCls.Fields



'根据已有图层的fields创建，相对简单
'如果要自己设置field的各个属性，得使用IFieldEdit、IFieldsEdit、IGeometryDef、IGeometryDefEdit接口

Dim pFeatClass As IFeatureClass
Set pFeatClass = pFWS.CreateFeatureClass(sName, pFields, Nothing, _
Nothing, esriFTSimple, "Shape", "")

Set CreateShapefile = pFeatClass
End Function


将feature添加到创建的shp文件中。
Public Sub AddFeatureToCreatedLayer(pOriginalFeatCursor As IFeatureCursor, pTargetFeatCls As IFeatureClass)
Dim pFeature As IFeature
Dim pFeatureBuffer As IFeatureBuffer
Dim pTargFeatCursor As IFeatureCursor
Dim pFields As IFields
Dim pTargFields As IFields
Dim i As Integer

' On Error GoTo Err

Set pTargFeatCursor = pTargetFeatCls.Insert(True)
Set pFields = m_pExportLayer.FeatureClass.Fields
Set pTargFields = pTargetFeatCls.Fields
Set pFeature = pOriginalFeatCursor.NextFeature

Do Until pFeature Is Nothing
Set pFeatureBuffer = pTargetFeatCls.CreateFeatureBuffer
For i = 0 To pFields.FieldCount - 1
If Not pFields.Field(i).Type = esriFieldTypeOID And Not pFields.Field(i).Type = esriFieldTypeBlob Then
If pTargFields.FindField(pFields.Field(i).Name) <> -1 Then '确保目标图层中有这个字段
pFeatureBuffer.Value(pTargFields.FindField(pFields.Field(i).Name)) = pFeature.Value(i)
End If
End If
Next
pTargFeatCursor.InsertFeature pFeatureBuffer
Set pFeature = pOriginalFeatCursor.NextFeature
Loop

pTargFeatCursor.Flush
End Sub

<img src="images/post/smile/dvbbs/em01.gif" />

<img src="images/post/smile/dvbbs/em02.gif" />