Angelo2449
Utente Junior
professione: Pensionato
software: Autocad
regione: Lombardia
Salve a tutti,
non riesco ad impedire che questo codice, in uno dei due casi, anziché scrivere il valore di Raggio1 o raggio2, scrive il valore giusto con una serie di 12 zeri con un "1" finale.
Cosa posso fare per evitare questo inconveniente?
Grazie.
non riesco ad impedire che questo codice, in uno dei due casi, anziché scrivere il valore di Raggio1 o raggio2, scrive il valore giusto con una serie di 12 zeri con un "1" finale.
Codice:
(while (= NomePunto nil)
(setq fp2 (open "C:\\AutocadSupporto\\Intersezione\\Distanze.dat" "r"))
(setq Raggio1 (read-line fp2)) ;; 4.52
(setq Raggio2 (read-line fp2)) ;; 3.98
(setq NomePunto (read-line fp2))
(close fp2)
);;while
(setq PuntoDiMezzo1 (list (/ (+ (car Point1) (car Lato)) 2.0) (/ (+ (cadr Point1) (cadr Lato)) 2.0)))
(command "_text" "_j" "_MC" PuntoDiMezzo1 0.20 0.0 (atof Raggio1) "")
(setq PuntoDiMezzo2 (list (/ (+ (car Point2) (car Lato)) 2.0) (/ (+ (cadr Point2) (cadr Lato)) 2.0)))
(command "_text" "_j" "_MC" PuntoDiMezzo2 0.20 0.0 (atof Raggio2) "")Grazie.
