change number

hi sir

please sir i have alot of profiles and i want chane numbers by x 100

can i have lsp to select number and outmaticly x 100

example 0.00100 i wanted 0.100

Try this issammesk and let me know .

(defun c:Test (/ sel doc)
 ;;	Tharwat . Date: 14.Sep.2014	;;
 (if (setq sel (ssget "_:L" '((0 . "TEXT,MTEXT")(1 . "*#*"))))
   (progn
     (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object))))
     ((lambda (i / sn st e)
        (while (setq sn (ssname sel (setq i (1+ i))))
          (if (numberp (read (setq st (cdr (assoc 1 (setq e (entget sn)))))))
            (entmod (subst (cons 1 (rtos (* (atof st) 100.) 2 3))
                           (assoc 1 e)
                           e
                    )
            ) ) ) ) -1 )
     (vla-endundomark doc)
   )
 )
 (princ)
)(vl-load-com)

its work very okkkkkkkkkkkk

You are most welcome .