더하기 합산 리습 수정 가능할까요?

제가 갖고 있는 더하기 리습인데요.

예를 들어 1, 1, 1 텍스트를 드레그 하면 합계 3 으로 텍스트를 찍을 수 있습니다.

근데 이걸 좀 수정할 수 있을까요?

예를 들어,

가1 나1 , 가2 나2 이렇게 있다면

모두 드레그해서 합산된 가3 나3 으로 텍스트를 찍을 수 있게 말이죠~

고수님들 부탁드려봅니다~

(defun @AD()(c:ad))
(defun c:tss (/ os ot ts a yn ht dot ss grpt pt1 ssn txnum-lst en tx k
pn ar1 ar2 ar3)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)(setvar “orthomode” ot)
(princ))
;-설정값 변경
(setq a (strcat “n현재 설정값(문자높이=” (rtos ts 2 1)
“,자리수=” (rtos dwnp 2 0) “)을 변경할까요? [Y/N] : “))
(initget “Yes No”)
(setq yn (getkword a))
(if (= yn “Yes”)
(progn
(setq a (strcat “n문자높이:”))
(setq ht (getdist a))
(if (= ht nil) (setq ht ts))
(setq a (strcat “n소수점 자리수을 지정:”))
(setq tem (getint a))
(if (= tem nil) (setq dot dwnp) (setq dot (abs tem)) )
(setq dwnp dot)
)
(setq ht ts dot dwnp)
)
;-문자내에 컴마 없애기
(setq pn (vl-string-position (ascii “,”) tx));nil
(while pn
(setq tx (strcat (substr tx 1 pn) (substr tx (+ pn 2)) ))
(setq pn (vl-string-position (ascii “,”) tx))
)
;-= dot 1)
(setq ar3 (@tx_dot ar2 dot))
(setq ar3 ar2)
)
(command “text” “j” “r” pt1 ht “0” ar3)
(prompt “nEnter text point->”)
(command “move” “l” “” pt1 pause)
(setvar “osmode” os)(setvar “orthomode” ot)
(prin1))