GetDistAtPoint和einvalidinp
你好;我试图用“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”错误。
我真的需要帮助,提前谢谢。
页:
[1]