distance
Dostępne słowniki:
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) ))
|