求两点间X、Y距离的函数是什么

artken

屏幕上取两点，比如：P1（x1,y1,0）,P2(x2,y2,0)

怎么求得P1和P2之间分别X、Y方向的距离？4舍5入不要小数点.（不是两点之间的距离）

相当于是DIST命令最出来的X增量、Y增量。

另：怎么样将三维点转成二维点？

haipingtao

用群码值

killer9806

两点间的距离直接用X2-X1的绝对值就OK了.

三维点转成二维点CAD的帮助里面有

caoyin

(mapcar '(lambda (a b c) (abs (- a b))) P1 P2 '(0 0))

artken

感谢大家在帮忙。这问题解决了

可能又有新的问题了。

怎么判断P2点是在P1点的上方还是下方。是这样的：

以P1为基本点，如果P2点在P1点的上方，那Y的距离就是正数，反之Y的距离就为负的。

以P1为基本点，如果P2点在P1点的右边，那X的距离就是正数，反之X的距离就为负的。

想了很久，没搞懂怎么判读，当初几何也没学好。。

caoyin

根据角度判断比较简单

(setq a (angle p1 p2))

ZZXXQQ

(if (> (- (cadr p2) (cadr p1)) 0) (princ "P2点在P1点上方") (princ "P2点在P1点下方"))

(if (> (- (car p2) (car p1)) 0) (princ "P2点在P1点右边") (princ "P2点在P1点左边"))

注意：未判断坐标差为零的情况。

henwuqing

我也遇到过这个问题，我使用的是6楼所说的弧度判断,感觉这样做最快捷

lionyoyo

henwuqing发表于2008-8-28 15:58:00我也遇到过这个问题，我使用的是6楼所说的弧度判断,感觉这样做最快捷

似乎全都忽略了p1与p2重合的情况

别怪我钻牛角尖

程序的健壮和完善很重要