方法一:
在AE中有个方法QueryPointAndDistance(Icurve为例),通过这个方法我们可以获取空间上一点到曲线上最近的点的位置和据起点的距离。这样我们就可以利用这个方法将空间上的点转移到我们要求得的两点间距离的两个点上,也就是将曲线上求距离的两个点看作是空间上任意两个点。通过QueryPointAndDistance方法求得在曲线上与这两个点最近的两个点与两个据起点的距离。
*注意*:实际上我们获取的最近的两个点实际上就是要求得距离的两个点本身。
假设曲线上两点位PtA,PtB 那么通过计算得到的两个距离就是DisPtA和DisPtB。
用DisPtA - DisPtB 就是我们要获取的曲线上两点间距离。
Dim outpt1 As IPoint
Set outpt1 = New Point
Dim disalong1 As Double
Dim dis1 As Double
pcurve.QueryPointAndDistance esriExtendTangentAtFrom, pt1, False, outpt1, disalong1, dis1, False
Dim outpt2 As IPoint
Set outpt2 = New Point
Dim disalong2 As Double
Dim dis2 As Double
pcurve.QueryPointAndDistance esriExtendTangentAtFrom, pt2, False, outpt2, disalong2, dis2, False
Set outpt1 = New Point
Dim disalong1 As Double
Dim dis1 As Double
pcurve.QueryPointAndDistance esriExtendTangentAtFrom, pt1, False, outpt1, disalong1, dis1, False
Dim outpt2 As IPoint
Set outpt2 = New Point
Dim disalong2 As Double
Dim dis2 As Double
pcurve.QueryPointAndDistance esriExtendTangentAtFrom, pt2, False, outpt2, disalong2, dis2, False
''曲线两点间距离
resultDis=disalong2-disalong2
方法二:
还有一种方法是利用GetSubcurve方法来将曲线上两点间的曲线裁剪出一个SubCurve,然后利用ICurve接口的Length方法就可以直接获取。但本方法实施起来有一定难度。
方法三:
如果我们要查询距离的两点 是曲线上的节点,那么我们就可以通过IEnumPointAndDistance接口下的 DistanceAlongCurve方法直接获取一个点到参照点的曲线距离(参照点一般为曲线的起点 frompoint),然后将获取到的两个距离相减也同样可以获取到两点间的曲线距离。