(defun c:dec (/ Ndec)
  (if (setq Ndec(getint "\n Numero di decimali: ")) (progn
        (setvar "cmdecho" 0)
        (princ "\n....... Seleziona i testi da modificare: ")
        (if (setq testi(ssget)) (progn
        (setq kk 0)
        (repeat (sslength testi)
                (setq elem1(entget (ssname testi kk)))
                (setq elem1(subst (cons 1 (rtos (atof (cdr(assoc 1 elem1))) 2 Ndec)) (assoc 1 elem1) elem1))
                (entmod elem1)
                (setq kk(1+ kk))
        )
	))
        (princ)
))
)
(princ "\n <copyright: ing. Claudio Granuzzo> ")
(princ "\n  Digitare DEC per lanciare il programma!")
(princ)