求两点距离公式

54525596

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

Andyhon

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

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

xiabin68

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


看懂了吗？

ZZXXQQ

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

AbnerXk

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

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

davide888

全好人

54525596

真的厉害呀。

54525596

染指红颜_笑 发表于 2013-1-8 10:52

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

54525596

染指红颜_笑 发表于 2013-1-8 10:52

刚用了，出错呀，，

xyp1964

瞎折腾……