你好;
我试图用“getdistatpoint”函数找到三维多段线上指定点的距离。有时它工作正常,但有时会产生einvalidinput错误。
我在网上搜索发现了这个功能:
- Public Shared Function GetDistanceToPoint(curve As Curve, pt As Point3d) As Double
- Dim ptOnCurve As Point3d = curve.GetClosestPointTo(pt, False)
- Dim ptparam As Double = curve.GetParameterAtPoint(ptOnCurve)
- Dim a As Double = curve.GetDistanceAtParameter(ptparam)
- Dim b As Double = curve.GetDistanceAtParameter(curve.StartParam)
- Return a - b
- End Function
这比“getdistatpoint”函数工作得更好,但也会产生“einvalidinput”错误。
我真的需要帮助,提前谢谢。 |