안녕하세요. 질문이 있습니다^^

전에 32비트 드림을 쓰면서 많이 감사드렸든데..

지금은 64비트 컴터로 인해 잠시 드림을 접어두고 있지만 늘 감사드립니다^^

질문이 있는데, 캐드에서 숫자 합산 lsp을 쓰고 있는데 보통 면적계산을 할 때 많이 씁니다.

그런데 캐드상에서 숫자를 주로 1,000 이런식으로 천단위에 쉼표를 넣는데

lsp은 쉼표가 있으면 제대로 인식을 못하더라구요....

쉼표가 있더라도 정상적으로 lsp이 인식될 수 있는 방법이 없을까요?

제가 쓰고 있는 lsp의 내용입니다.

-----------------------------------------------------------------------------

;;;화면에 써놓은 숫자들의 합을 구하여 화면상에 글자로 써주는 리습
(defun c:sum (/ e Pnt n i var)
      (setq  e (ssget '((-4 . "<or")(0 . "TEXT")(0 . "MTEXT")(-4 . "or>")))
               Pnt (getPoint "\nPick Point : ")
               th (getdist "\nText Height : ")
               n (sslength e)
               i 0
               sum 0
      )
     
      (repeat n
          (setq var (entget (ssname e i))
              num1 (assoc 1 var)
              num2 (cdr num1)
              num3 (atof num2)
              sum (+ sum num3)
              i (1+ i)
          )
      )
      (setq sumtext (rtos sum))
      (command "text" pnt th "0" sumtext)
(princ))

 ----------------------------------------------------------------------