求教：如何实现桩号原基础加减某一值

zxl01615

之前在论坛里看见过这样的程序，但是对0+000.00这样含有+号的不能实现，并且小数点为4位，而不能设置2位
请各位大侠帮忙修改一下，不胜感激
(defun C:cht();改变数字，在原基础上增加或减去某个值
  (setq ss (ssget '((0 . "TEXT")))
        n 0
        num 0
  )
  (if ss (progn
    (setq add (getint "\nAdded number <0>: "))
    (if (null add) (setq add 0))
    (repeat (sslength ss)
      (setq att (entget (ssname ss n))
           
            n (1+ n)
      )
  (setq alt (distof (cdr (assoc 1 att))))
  (if alt (progn
    (setq alt (rtos (+ alt add) 2)
          num (1+ num)
    )
    (entmod (subst (cons 1 alt) (assoc 1 att) att))
  ))
))
)
)