摘要:
Dim pGeo As IGeometrySet pGeo = [Shape]Dim pPolyline As IPolylineSet pPolyline = pGeoDim pCurve As IPolycurveSet pCurve = pPolylinedim pt as IPointset pt = new Pointcall pCurve.QueryPoint(esriNoExtension,0.5,True,pt)dim x as doublex = round(pt.X,5)CenterX = x 阅读全文