;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;幕匠LISP实验室;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;程序功能：数值增减  [备注：数值增减]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:MJ94 (/ e ent newt oldt ent1 tt num)
  (setq e (car (entsel "\nPick a number: ")))
  (if (/= e nil) 
    (progn
      (setq ent (entget e))
        (if (= (cdr (assoc 0 ent)) "TEXT")
          (progn
            (setq oldt (cdr (assoc 1 ent)))

            (if (= numm nil) (setq numm 0))
            (setq num (getint (strcat "\nNumber of digits to right of decimal point <" (itoa numm) ">:")))
            (if (= num nil) (setq num numm))
            (setq numm num)

            (if (= ttt nil) (setq ttt 0.0))
            (setq tt (getreal (strcat "\nAdd: <" (rtos ttt 2 num) ">:")))
            (if (= tt nil) (setq tt ttt))
            (setq ttt tt)

            (setq oldt (rtos (+ (atof oldt) tt) 2 num))
            (setq newt (getstring T (strcat "\nNew text <" oldt ">:")))
            (if (= newt "") (setq newt oldt))
            (setq ent1 (subst (cons (car (assoc 1 ent)) newt) (assoc 1 ent) ent))
            (entmod ent1)
          )
          (princ "\nError: Not a text !")
      )
    )
  )
  (princ)
)
