计算两点距离

jim66xy

最近刚学习编程，发现distance函数计算的结果与手算差别很大，下面是代码和计算结果，请高手指教！


用函数distance计算
  ;; 计算所有点到目标点的距离，并保存为 (距离 点坐标) 的列表
  (setq dist_list
    (mapcar '(lambda (pt)
              (list (distance target_pt pt) pt))
            pt_list))


自编函数计算
(defun Calculate2DDistance (pt1 pt2 / dx dy)

;; 计算两个二维点之间的距离
       
  (setq dx (- (car pt2) (car pt1))    ; 差值 x
               
        dy (- (cadr pt2) (cadr pt1))  ; 差值 y
  )
  (sqrt (+ (* dx dx) (* dy dy))) ; 二维欧几里得距离公式
)


  ;; 计算所有点到目标点的距离，并保存为 (距离 点坐标) 的列表
       
  (setq dist_list
               
    (mapcar '(lambda (pt)
                                                         
              (list (Calculate2DDistance target_pt pt) pt))
                       
            pt_list))

计算结果如下：

llsheng_73

distance计算的距离是三维坐标的，Z值也会参与计算，你的自编函数只计算了二维坐标的，也就是平面投影距离，从两组计算结果看，你的targetpt和ptlist里边的点，z值相差比较大

mahuan1279

对象捕捉关了吗？

llsheng_73

mahuan1279 发表于 2025-1-11 10:59
对象捕捉关了吗？

对象捕捉是会影响一些东西，不过基本只影响通过command调用命令来画图或编辑，对于计算不可能有影响，对entmake,entmod也不会有影响，对vla方法画图或修改有没影响未验证

jim66xy

llsheng_73 发表于 2025-1-11 10:59
distance计算的距离是三维坐标的，Z值也会参与计算，你的自编函数只计算了二维坐标的，也就是平面投影距离 ...

按函数说明：如果提供的参数中有一个或两个二维点，distance 函数会忽略所提供的任何三维点的 Z 坐标，而返回将这些点投影到当前构造平面上后所得的点之间的二维距离。我点击的位置需要计算高程，初始高程为0，计算所有已知点与该点的距离应该忽略高程值

llsheng_73

jim66xy 发表于 2025-1-11 11:10
按函数说明：如果提供的参数中有一个或两个二维点，distance 函数会忽略所提供的任何三维点的 Z 坐标，而 ...

target_pt 是有Z值的吧，只不过它是0，0不是没有，它是三维点，所以distance会计算三维距离
你需要忽略高程值，那么你的 target_pt就只能用二维坐标点(list x y)而不是(list x y 0)，0元可以说是没有钱，但0度不能说是没有温度

帝都划水王

jim66xy 发表于 2025-1-11 11:10
按函数说明：如果提供的参数中有一个或两个二维点，distance 函数会忽略所提供的任何三维点的 Z 坐标，而 ...

初始高程为零不等于该点为二维点。

xyp1964

居然会怀疑distance函数，不如画个三维图进行判断

yegucheng0129

感谢分享,学习了