[求助]可算出两点间直线的方程式的LISP

fcaht

可算出两点间直线的方程式的LISP,道路定线用的!!!哪位高手有,谢谢!!!!!

龙龙仔

傳回兩個點之間的 3D 距離
(distance pt1 pt2)

引數

pt1

2D 或 3D 點串列。

pt1

2D 或 3D 點串列。

傳回值

距離。
如果其中一個或兩個提供的點是 2D 的點，則distance 忽略所提供任一 3D 點的 Z 座標值，將兩點投射到現行建構平面並傳回兩點之間的 2D 距離。

範例

指令：(distance '(1.0 2.5 3.0) '(7.7 2.5 3.0))

6.7

指令：(distance '(1.0 2.0 0.5) '(3.0 4.0 0.5))

2.82843

花锦绣

好久没用LISP了，但公式还记得。

直线方程(两点式)：

(x-x1)/(x2-x1)=(y-y1)/(y2-y1)=(z-z1)/(z2-z1)

mycad

函数一

ang(pt1,pt2)

函数二

(distance pt1 pt2 )

函数三

(command "polar" pt1 dis "")

有以上三个函数可以画出线等