소수점자리 정리 리습입니다. 수정부탁드려요.

소수점자리 정리하는 리습입니다.

문제는 천단위표시(,)가 있는 숫자는 천단위 이후의 숫자를 인식을 못하네요.

예) 1,234.56 -> 1.00 으로 소수점 정리가 됩니다.

도와주세요. ^^

(defun c:dd (/ ss te i na lis typ text hi te1 te2 new newlis)
  (setvar “dimzin” 1)
  (princ “n>>> 텍스트 선택 하세요…”)

  (setq ss (ssget))
  (setq te (getint “n>>> 소숫점자리 설정값 입력 : “))
  (setq i 0)
  (while (ssname ss i)
    (setq na (ssname ss i))
    (setq lis (entget na))
    (setq typ (assoc 0 lis))
    (setq text (cdr typ))
    (if (= text “TEXT”)
      (progn
      (setq hi (assoc 1 lis))
      (setq te1 (cdr hi))
      (setq te2 (rtos (atof te1) 2 te))
      (setq new (cons (car hi) te2))
      (setq newlis (subst new hi lis))
      (entmod newlis)
      ) ;progn
    ) ;if
    (setq i (+ i 1))
  ) ;while
(princ)
) ;defun