我们常常需要计算某个线状几何要素(可以是直线Iline,IpolyLine,也可以是曲线Icurve,Iring)上任意两点间的距离。对于直线而言我们只需要用两点间直线距离公式就可以得到,但是对于曲线来说在Ae中没有提供直接获取的方法和属性。本人在实验后找到了可以求得曲线上任意一两点距离的方法,和大家分享,希望共同提高。
方法一:
在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