숫자를 합치는 리습인데….

숫자를 합치는 리습인데 이걸 가지고 숫자를 빼는 리습을 만들려하는데 어케 수정해야하나요?

(DEFUN C:ST1() ; 선택한 TEXT 숫자 빼기
    (setq decn (getvar “luprec”))
     (SETVAR “CMDECHO” 1)
        (SETQ N 0 T 0
              SS (SSGET)
              EN (SSLENGTH SS)
        )
        (WHILE (< N EN)
               (setq ed(entget (setq e2(ssname SS N))))
               (setq t0(cdr (assoc 0 ed)))
        (if (= “TEXT” t0)
     (progn
                       (SETQ NO (ATOF (CDR (ASSOC 1 ed))))
                       (setq T (+ T NO))
                   )
        )
               (setq N (+ N 1))
        )
        (setq total (rtos t 2 decn))
        (PROMPT (STRCAT “n TOTAL = ” TOTAL ))
        (setq tt (entget (car (entsel “nTarget num:”))))
        (setq stodf (subst (cons 1 total) (assoc 1 tt) tt))
        (entmod stodf)
        (PRINC)
)