kunekainen 发表于 2022-7-6 21:59:46

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]
查看完整版本: GetDistAtPoint和einvalidinp