Do While Not id = -1 pFeature = pFLayer.FeatureClass.GetFeature(id) pPolyline = pFeature.Shape pPointColl = pPolyline For lPnt = 0 To (pPointColl.PointCount - 1) Dim newPoint As IPoint = SetZValueOnPoint(pPointColl.Point(lPnt), Convert.ToDouble(txtZValue.Text)) pPointColl.UpdatePoint(lPnt, newPoint) Next pFeature.Shape = pPointColl pFeature.Store()
Solved! Go to Solution.
Public Function SetZValueOnPoint(ByVal point As IPoint, ByVal zValue As Double) As IPoint Dim zAware As IZAware zAware = point zAware.ZAware = True point.Z = zValue Return point End Function
Do While Not id = -1 Dim pZAware As IZAware pFeature = pFLayer.FeatureClass.GetFeature(id) pZAware = pFeature pZAware.ZAware = True pPolyline = pFeature.Shape pPointColl = pPolyline For lPnt = 0 To (pPointColl.PointCount - 1) Dim newPoint As IPoint = SetZValueOnPoint(pPointColl.Point(lPnt), Convert.ToDouble(txtZValue.Text)) pPointColl.UpdatePoint(lPnt, newPoint) Next