[求助]：为什么距离不对

wzs_ls

用cad中dist命令量取两点距离怎么和z值有关，既量出的是斜距，不是平距，如两点平局是3米多，可是一个z为2250，另一个z值为零，实际量出距离为两千多。
请教用怎么设置

AyungerStudio

;;;测量两点XY平面距离.
(defun C:DistXY(/ Pt1 Pt2)
        (setq Pt1 (getpoint "\n指定测量起点:"))
        (setq Pt2 (getpoint Pt1 "\n指定测量终点:"))
        (setq Pt1 (list (car Pt1) (cadr Pt1) 0.0))
        (setq Pt2 (list (car Pt2) (cadr Pt2) 0.0))
        (princ (strcat "\n*** 两点XY平面距离=" (rtos (distance Pt1 Pt2) 2)))
        (prin1)
);end_defun