Dim pPolyline As IPolyline Set pPolyline = pFeature.Shape Dim pPoint As IPoint Set pPoint = New Point pPolyline.QueryPoint esriNoExtension, 0.11, False, pPoint Debug.Print pPoint.X, pPoint.Y
記事
目次
記事
Dim pPolyline As IPolyline Set pPolyline = pFeature.Shape Dim pPoint As IPoint Set pPoint = New Point pPolyline.QueryPoint esriNoExtension, 0.11, False, pPoint Debug.Print pPoint.X, pPoint.Y