Hi
Can anyone out there see why I am getting records in the table but no geometries to match ?
Do Until pFeature Is Nothing
Application.StatusBar.Message(0) = "Buffering " & l & " of " & d
Set inputPolyline = pFeature.ShapeCopy
'Set inputPolyline = pFeature.ShapeCopy
Set pGeomColl = New GeometryBag
pGeomColl.AddGeometry inputPolyline
Set pEnumGeometry = pGeomColl
pEnumGeometry.Reset
'MsgBox "Geometry Count: " & pGeomColl.GeometryCount
Set pGeo = pEnumGeometry.Next
i = 1
While Not pGeo Is Nothing
'MsgBox "Geometry: " & i & " Geometry type: " & pGeo.GeometryType
Dim pBC As IBufferConstruction
Set pBC = New BufferConstruction
'Dim pPolygon As IPolygon
'Set pPolygon = pBC.Buffer(pGeo, dDist)
Set pOutGeomColl = New GeometryBag
Dim pOutPoly As IPolygon
Set pOutPoly = New Polygon
pOutGeomColl.AddGeometry pOutPoly
pBC.ConstructBuffers pEnumGeometry, dDist, pOutGeomColl
Set pNewFeature = pInsertFeatureBuffer
Set pNewFeature.Shape = pOutPoly
q = pInsertFeatureCursor.InsertFeature(pInsertFeatureBuffer) 'Insert the feature into the feature cursor
i = i + 1
Set pGeo = pEnumGeometry.Next
Wend
Set pFeature = pFeatureCursor.NextFeature
l = l + 1
Loop
Thanks
Chris