54525596 发表于 2013-1-7 21:55:51

求两点距离公式

求两点间距离公式或者程序源码，可以循环。。。我想用来学习。。。

Andyhon 发表于 2013-1-7 22:00:57

...两点间距离公式...

直接套用 (distance p1 p2)/ or 另有所指

xiabin68 发表于 2013-1-8 00:38:41

　 x1=3712232.528 、 y1=523620.436 、 x2=3712227.860 、 y2=523611.598 水平距离 。
距离= (x2-x1)^2+(y2- y1) ^2 再开根号就是平面距离了


看懂了吗？

ZZXXQQ 发表于 2013-1-8 08:09:55

(defun dist (p1 p2) (sqrt (apply '+ (mapcar '* p1 p2))))

AbnerXk 发表于 2013-1-8 10:52:40

本帖最后由 染指红颜_笑 于 2013-1-8 21:48 编辑


(defun c:tt( / 1pt 2pt xdist)
(while (setq 1PT (getpoint "\n点取第一点:"))
(setq 2PT (getpoint 1PT "\n点取第二点:"))
(setq Xdist (distance 1pt 2pt))
(command "text" (getpoint "\n选取文字插入点") "" "" Xdist))
(princ))

davide888 发表于 2013-1-8 11:14:38

全好人

54525596 发表于 2013-1-8 19:09:55

真的厉害呀。

54525596 发表于 2013-1-8 19:10:30

染指红颜_笑 发表于 2013-1-8 10:52 static/image/common/back.gif


好人，能不能循环点取。。计算。

54525596 发表于 2013-1-8 19:12:29

染指红颜_笑 发表于 2013-1-8 10:52 static/image/common/back.gif


刚用了，出错呀，，

xyp1964 发表于 2013-1-8 19:12:49

瞎折腾……
页: [1] 2
查看完整版本: 求两点距离公式