Alle_prime_armi : [post n° 375499]

Misura distanze

Buongiorno, ho realizza questo piccolo lisp per misurare distanze che fino alla versione autocad 2014 funzionava egregiamente

(defun c:DISarea ( / pt1 pt2 )
(setq pt1(getpoint"\nPrimo punto")
pt2(getpoint pt1 "\nSecondo punto")
)
(princ "\nDistanza UdR - Area: ")
(princ (* 30(atoi(rtos (/ (distance pt1 pt2) 3.0)2 0))))
(princ)
)

Adesso ho installato Autocad 2016 ed il comando non funziona più, mi chiede il primo ed il secondo punto, ma poi non mi riporta nessun risultato.
Sapreste dirmi dov'è l'errore? Un grazie anticipato per la collaborazione
Lolo :
In cosa si differenzia dal comando "misura"?
Avvisami quando qualcuno risponde
Non mandarmi più avvisi

Se vuoi essere avvisato quando qualcuno interviene in questa discussione, indica un nome e il tuo indirizzo e-mail.