distance
Questa funzione restituisce la distanza
tridimensionale tra due punti
(distance
p1 p2)
Esempio:
(defun
c:miadistanza()
(setq punto1 (getpoint "Inserisci primo punto
"))
(setq punto2 (getpoint "Inserisci primo punto
"))
(distance punto1 punto2)
(princ)
)
salviamo il file lez17.lsp
eseguiamo autocad e scriviamo nella linea di comando
(load "lez17")
facciamo Invio
quindi scriveremo
miadistanza
Scarica l'esempio
R. Pucci