use type "a s A S" or "d f D F"
(defun c:test (/ en ent str pt)
(if (and (setq en (car (entsel "Select Integer Number Text :")))
(setq ent (entget en))
(setq str (cdr (assoc 1 ent)))
(numberp (eval (read str)))
(equal (atoi str) (atof str))
)
(while (and (setq pt (grread t 15 0))
(not (and (= 2 (car pt))
(or (= 13 (cadr pt)) (= 32 (cadr pt)))
)
) ;_Enter Space
(not (or (= (car pt) 11) (= (car pt) 25)));_Right button
)
(cond ((and (= (car pt) 2) (member (cadr pt) (list 65 83 97 115)));_type "a s A S"
(setq str (rtos (1+ (atoi str)) 2 0))
(setq ent (subst (cons 1 str) (assoc 1 ent) ent))
(entmod ent)
)
((and (= (car pt) 2) (member (cadr pt) (list 68 70 100 102)))
(setq str (rtos (1- (atoi str)) 2 0))
(setq ent (subst (cons 1 str) (assoc 1 ent) ent))
(entmod ent)
)
)
)
(princ)
)
(princ)
)