distance

zwraca odległość pomiędzy dwoma punktami

np:

(distance (list 123 234 ) (list 321 345 ))
Zwraca wartość:
226.991

Chcąc zmierzyć odleglość pomiędzy parą wskazanych punktów możemy zrobić to tak:

(distance (setq P1(getpoint "\nWskaż początek: " ) ) (setq P2 (getpoint "\nWskaż koniec: " P1) ))