면적리습이랑 더하기 리습좀 수정해주세요 ㅠㅠ

면적 구하는 리습에서   1000 단위 콤마 넣기

(DEFUN C:QA()   (SETVAR "CMDECHO" 1)   (setvar "dimzin" 1)   (SETVAR "REGENMODE" 0)   (COMMAND "AREA" "e" pause)   (setvar "lunits" 2)   (setvar "luprec" 2)   (SETQ PP (GETPOINT "n Pick the point : ")         TS (GETVAR "TEXTSIZE")         AREA (GETVAR "AREA")         AA (/ AREA 1000000.)         AREA11 (RTOS AA 2 2)         AREA12 (RTOS (* AA 0.3025) 2 2)      AREA1 (pds_comma AREA11)         AREA2 (pds_comma AREA12)           AA (STRCAT  "" AREA1 "㎡ /" AREA2 "평" "")         )   (COMMAND "TEXT" PP TS "0″ AA) )

;;일단밟아님 콤마넣기 서브루틴 (defun pds_comma (str / com_fr int_no com_no com_no2 i)     (setq com_fr (substr str 1 1))     (if (or (= com_fr "+") (= com_fr "-"))       (setq str (substr str 2))           (setq com_fr nil)   )     (setq int_no (strlen (rtos (atoi str) 2 0)))     (setq com_no (fix (/ int_no 3)) com_no2 (rem int_no 3))     (cond        ((= com_no2 0)(setq i 3 com_no (1- com_no)))        ((= com_no2 1)(setq i 1))        ((= com_no2 2)(setq i 2))     )    (if (> com_no 0)        (repeat com_no            (setq str (strcat (substr str 1 i) "," (substr str (1+ i))))            (setq i (+ i 4))        )    )       (if com_fr (setq str (strcat com_fr str)))    str ) 

;;일단밟아님 콤마넣기 서브루틴 을 빌려왔습니다. 출처는 아래

http://cluster1.cafe.daum.net/_c21_/bbs_search_read?grpid=n4jE&fldid=ESJj&datanum=3255&contentval=&docid=n4jEESJj325520071130143527

그리고 질문이 1235.999999 이게 1236으로 나오는데 1236.00 으로 나오게하는건 어떻게 하나요ㅠ

이것은 리습에 아래 한줄 첨부하면 됩니다.

  (setvar "dimzin" 1)

그리고 질문에 더하기 리습에서 1,234+5,678 이거를 ,를 소수점으로 인식하는거 어떻게 고치나요 ㅠㅠ 천단위 콤마를 인식하게 하는건 어떻게 하나요ㅠㅠ

이건 무슨말인지 이해 불가라서

이 질문에서는 더이상,,,    패스~

.