Hi Try this may work in ARCGIS 10 but its not working in 10.1.I want to know the reason Do Until pfeature Is Nothing 'pPolygon = pfeature.Shape Dim ptop As ITopologicalOperator ptop = pfeature.Shape Dim pPl As IPolyline = New Polyline pPl = ptop.Boundary Dim pConstructCurve As IConstructCurve3 Dim test As Double test = 3.048 pConstructCurve = New Polyline pConstructCurve.ConstructOffset(pPl, -1 * test, esriConstructOffsetEnum.esriConstructOffsetMitered + esriConstructOffsetEnum.esriConstructOffsetSimple) ConstructOffset = pConstructCurve 'pBufferPolygon = ptop.Buffer(-20) ' pBufferPolygon = pBufferConstruction.Buffer(pPolygon, 40) AddPolygonToGraphicsLayer(ConstructOffset) pfeature = pFeatureCursor.NextFeature Loop Govind
... View more