이리습좀봐주세요.” error: bad argument value: positive 0 ” 이런메세지가떠요

(DEFUN C:AW(/)
(setq text_index 0 sum_wt 0)
(princ “n합산할 중량를 선택하세요…..”)
(setq select_text (ssget))
(setq text_qty (sslength select_text))
(repeat text_qty
(setq assoc_text (entget (ssname select_text text_index)))
(setq assoc_type (cdr (assoc 0 assoc_text)))
(if (OR (= assoc_type “TEXT”) (= assoc_type “MTEXT”))
(progn
(setq pcs_string (cdr (assoc 1 assoc_text)))
(setq wt_check (substr pcs_string 1 1))
(if (= wt_check “(“)
(progn
(setq pcs_string (strdel pcs_string “(” ))
(setq pcs_string (strdel pcs_string “)” ))

(setq sum_wt (+ sum_wt (atof pcs_string)))
(princ “n중량 : “) (princ pcs_string)
) )
) )
(setq text_index (1+ text_index))
);;repeat
(setq sum_wt (rtos sum_wt 2 1))
(setq decimal_check (substr sum_wt (- (strlen sum_wt) 1) 1) )
(if (/= decimal_check “.”) (setq sum_wt (strcat sum_wt “.0”)) )
(SUMMARY_중량)
);;defun

———-
여기까진데요..
숫자 합게구하는리습인데요..
여러개의 숫자를선택해 합을구한후 합계를 괄호를입혀서 나오게하는리습입니다..
리습어디가 문젠지좀 부탁드려요 ^^;;