더하기 리습입니다.

검색을 많이 이용하여 제가 제일 원하는 것과 제일 유사한 리습을 찾아서 쓰고 있습니다.

다만, 한가지 수정을 해야하는데요.

1,000.1과 1을 더하면 1,001.1이 나와야하는데

콤마, 마침표 전부 무시하고 10011이 나옵니다.

콤마하고 마침표 좀 살려주세요..

—————————————————————————-

(defun c:++(/ ob n i a sum num t1 t2)
 (setq ob (ssget ‘((0 . “TEXT,MTEXT”))))
 (setq n (sslength ob))
 (setq i 0)
 (setq sum 0)
 (setq t2 (cdr (assoc 40 (entget (ssname ob 0)))))
 (while (< i n)
  (setq a (cdr (assoc 1 (entget (ssname ob i)))))
  (setq a(_PureNo a))
  (setq num (atof a))
  (setq sum (+ sum num))
  (setq i (+ 1 i))
 );while
(setq t1 (rtos sum 2 5))
(command “Text”(getpoint “n 지점 선택”) t2 “” t1)
(princ)
)
(defun _PureNo(str / len st1 n temp)
   (setq len (strlen str))
   (setq st1 “”)
   (setq n 1)
   (while (>= len n)
      (setq temp (substr str n 1))
      (if (<= 48 (ascii temp) 57)
         (setq st1(strcat st1 temp))
      )
      (setq n (+ n 1))
   )
   st1
 )

이건데요 이게 소수점 첫째짜리까지만 연산이 되서

소수점 두째자리까지 연산될 수 있도록 수정 부탁드립니다.