Ringrazio per le risposte ricevute ma probabilmente non mi sono spiegato bene.
Di seguito la richiesta che avevo fatto:
Prima di tutto un saluto a tutti,
avrei la necessità di visualizzare la misura di una distanza tra due punti, oppure una quota, ma con un calcolo particolare:
mi spiego
se misuro la distanza tra due punti A - B e risulta 1401,55 io avrei bisogno di leggere il risultato ottenuto dalla seguente operazione:
1401,55/30=46,71 quindi arrotondando e moltiplicando nuovamente 47*30=1410 che è il numero che vorrei venisse visualizzato.
Un grazie anticipato per tutte le eventuali risposte
Vorrei visulizzare, nel caso misurassi la distanza tra i punti A e B oppure anche inserendolo come quota la distanza ottenuta eseguendo l'operazione su indicata in automatico.
Praticamente una procedura o formula o utility Lisp che mi permetta di automatizzare il processo.
Grazie nuovamente per i consigli.
giorgio : [post n° 361148]
Misura distanze
Copia il codice seguente in un file di testo e salva il file con il nome di DISG.LSP.
Successivamente carica il file con il comando APPLOAD, poi digita DISG per avviare il comando.
ecco il codice:
(defun c:disg ( / pt1 pt2 )
(setq pt1(getpoint"\nPrimo punto")
pt2(getpoint pt1 "\nSecondo punto")
)
(princ "\nDistanza Giorgio: ")
(princ (* 30(atoi(rtos (/ (distance pt1 pt2) 30.0)2 0))))
(princ)
)
;;; Domenico IEVA
;;; www.domenicoieva.com
Successivamente carica il file con il comando APPLOAD, poi digita DISG per avviare il comando.
ecco il codice:
(defun c:disg ( / pt1 pt2 )
(setq pt1(getpoint"\nPrimo punto")
pt2(getpoint pt1 "\nSecondo punto")
)
(princ "\nDistanza Giorgio: ")
(princ (* 30(atoi(rtos (/ (distance pt1 pt2) 30.0)2 0))))
(princ)
)
;;; Domenico IEVA
;;; www.domenicoieva.com
Un grazie infinito per l'aiuto! Il tutto funziona egregiamente!!!!!!
Sono riuscito ad inserire il comando all'avvio senza doverlo caricare ogni volta, mi sarebbe piaciuto poterlo caricare tramite un menù senza doverlo digitare ma così è sufficiente.
Grazie ancora
Sono riuscito ad inserire il comando all'avvio senza doverlo caricare ogni volta, mi sarebbe piaciuto poterlo caricare tramite un menù senza doverlo digitare ma così è sufficiente.
Grazie ancora
