[分享]

<P>下面的代码在运行中可以通过，但提示 type mismatch，大家帮忙看看怎么回事：</P>
<P>Private Sub UIButtonControl5_Click()</P>
<P>Dim pDoc As IMxDocument<BR>Dim pMap As IMap<BR>Dim pActiveView As IActiveView<BR>Dim pFeatureLayer As IFeatureLayer<BR>Dim pPointCollection As IPointCollection<BR>Dim pFeatureCursor As IFeatureCursor<BR>Dim pEnumFeature As IEnumFeature<BR>Dim pFeature As IFeature<BR>Dim pEnumLayer As IEnumLayer<BR>Dim pl As IPolyline<BR>On Error GoTo ErrorHandler<BR>Set pDoc = ThisDocument<BR>Set pActiveView = pDoc.ActiveView<BR>Set pMap = pDoc.FocusMap<BR>Set pEnumLayer = pMap.Layers<BR>pEnumLayer.Reset<BR>Set pLayer = pEnumLayer.Next<BR>Set pFeatureLayer = pLayer<BR>Set pFeatureClass = pFeatureLayer.FeatureClass<BR>Set pEnumFeature = pDoc.FocusMap.FeatureSelection<BR>Set pFeature = pEnumFeature.Next<BR>Set pPointCollection = pFeature.Shape<BR>Dim index As Integer<BR>Dim count As Double<BR>Dim z1 As Double<BR>Dim z2 As Double<BR>Dim z As Double<BR>z1 = pPointCollection.PointCount<BR>For index = 0 To pPointCollection.PointCount - 1<BR>count = pPointCollection.Point(index).z<BR>z2 = z2 + count<BR>Next index<BR>z = z2 / z1<BR>Dim pPoint As IPoint<BR>For index = 0 To pPointCollection.PointCount - 1<BR>Set pPoint = pPointCollection.Point(index)<BR>pPoint.z = z<BR>'MsgBox pPoint.z<BR>pPointCollection.ReplacePoints index, 1, 1, pPoint<BR>'MsgBox pPointCollection.Point(index).x ; "/" ; pPointCollection.Point(index).z<BR>Next index<BR>Set pl = pPointCollection<BR>Set pFeature = pl<BR>pActiveView.Draw hDC, TrackCancel<BR>pActiveView.Refresh<BR>Exit Sub<BR>ErrorHandler:<BR>MsgBox "要素选择错误！" ; Err.Description<BR>End Sub</P>