Dim pGeo As IGeometry
Set pGeo = [Shape]
Dim pPolyline As IPolyline
Set pPolyline = pGeo
Dim pCurve As IPolycurve
Set pCurve = pPolyline
dim pt as IPoint
set pt = new Point
call pCurve.QueryPoint(esriNoExtension,0.5,True,pt)
dim x as double
x = round(pt.X,5)
CenterX = x
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。