Hi,
Earlier Query:
I am trying to run the code mentioned here in ArcGIS 10 but its giving an error at the below mentioned line:
that compile error: user-defined type not defined.
New Query:
I tried to fix it and found that esriCore Library doesn't exist but instead the Fields Interface now belongs to GeoDatabase Library i.e. esriGeoDatabase.Fields. Now when I am running the code its giving an error of type mismatch at line mentioned below:
Help required
Thanks.
Earlier Query:
I am trying to run the code mentioned here in ArcGIS 10 but its giving an error at the below mentioned line:
Set pFields = New esriCore.Fields
that compile error: user-defined type not defined.
New Query:
I tried to fix it and found that esriCore Library doesn't exist but instead the Fields Interface now belongs to GeoDatabase Library i.e. esriGeoDatabase.Fields. Now when I am running the code its giving an error of type mismatch at line mentioned below:
Set pPC = pF.Shape
Help required
Thanks.
The error type mismatch was due to the line as the selected layer was a point and the help for "IPointCollection" specifically mentions
that
But still its not selecting any layer and returning an error that:
In code mentioned below:
Public Sub a() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pFLayer As IFeatureLayer Set pFLayer = pMxDoc.FocusMap.Layer(1) Dim pDS As IDataset Set pDS = pFLayer Dim pFWS As IFeatureWorkspace Set pFWS = pDS.Workspace Dim pFields As IFields Dim pFieldsEdit As IFieldsEdit Set pFields = New esriGeoDatabase.Fields Set pFieldsEdit = pFields Dim pField As IField Dim pFieldEdit As IFieldEdit Set pField = New esriGeoDatabase.Field Set pFieldEdit = pField With pFieldEdit .Length = 10 .Name = "PolylineID" .Type = 1 End With pFieldsEdit.AddField pField Set pField = New esriGeoDatabase.Field Set pFieldEdit = pField With pFieldEdit .Length = 10 .Name = "VertexID" .Type = 1 End With pFieldsEdit.AddField pField Set pField = New esriGeoDatabase.Field Set pFieldEdit = pField With pFieldEdit .Length = 20 .Name = "X_Vertex" .Type = esriFieldTypeDouble End With pFieldsEdit.AddField pField Set pField = New esriGeoDatabase.Field Set pFieldEdit = pField With pFieldEdit .Length = 20 .Name = "Y_Vertex" .Type = esriFieldTypeDouble End With pFieldsEdit.AddField pField Dim pTable As ITable Dim pTmpDS As IDataset Dim pEnumDS As IEnumDataset Dim pWS As IWorkspace Set pWS = pFWS Set pEnumDS = pWS.Datasets(esriDTTable) Set pTmpDS = pEnumDS.Next Do Until pTmpDS Is Nothing If pTmpDS.Name = "output" Then pTmpDS.Delete Exit Do End If Set pTmpDS = pEnumDS.Next Loop Set pTable = pFWS.CreateTable("output", pFields, Nothing, Nothing, "") Dim pFClass As IFeatureClass Set pFClass = pFLayer.FeatureClass Dim pFC As IFeatureCursor Set pFC = pFClass.Search(Nothing, False) Dim pF As IFeature Set pF = pFC.NextFeature Do Until pF Is Nothing Dim pPC As IPointCollection Set pPC = pF.Shape Dim i As Integer i = 1 Dim x As Integer For x = 0 To pPC.PointCount - 1 Dim pRow As IRow Set pRow = pTable.CreateRow pRow.Value(3) = pPC.Point(x).x pRow.Value(4) = pPC.Point(x).Y pRow.Value(2) = i pRow.Value(1) = pF.OID pRow.Store i = i + 1 Next x Set pF = pFC.NextFeature Loop End SubPlease help as i'll be very thankful.