increment number

[klcecity371697]

hi
I need to modify the attachment lisp as my project,the increment number ok,but same time I need select one by one (without use repeat command) or to change all single selection without decimal places(0).

thanks in advance

venki

[pbejse]

(defun c:NI (/ ss en ed ov tv add)
  (initget 3)
  (setq add (getreal "\nAmount To Add:   "))

  (and (setq ss (ssget '((0 . "TEXT"))))
       (while (setq en (ssname ss 0))
              (setq ed (entget en)
                    tv (cdr (assoc 1 ed)))
              (and (numberp (read tv))
                   (setq ov (atof tv))
                   (entmod (subst (cons 1 (rtos (+ ov add) 2 0))
                                  (assoc 1 ed) ed)))
              (ssdel en ss)))
  (prin1))

(defun c:NI (/ en ed ov tv add)
  (initget 3)
  (setq add (getreal "\nAmount To Add:   "))
  (while (and
               (setq en (car (entsel "\nSelect Text to modify:")))
               (wcmatch (cdr (assoc 0 (entget en))) "*TEXT")
               )
        (setq ed (entget en)
                    tv (cdr (assoc 1 ed)))
              (and (numberp (read tv))
                   (setq ov (atof tv))
                   (entmod (subst (cons 1 (rtos (+ ov add) 2 0))
                                  (assoc 1 ed) ed)))
        ))