Re:lisp으로 천단위 표시하는 명령어가 따로 있나요?

[행복한하루]

주말농부님의 서브루틴입니다...

콤마찍기 리습에 있는 서브루틴이져..

(setq txt "123456")

(setq newtxt (cmo_1 txt))

이렇게 해주면... newtext엔...."123,456" 이렇게 천단위마다 콤마가 찍히게 됩니다.

;cmo sub routine
(defun cmo_1(txt / a1 a2 kn txt2)

   (setq kn (strlen txt))

   (setq txt2 (atof txt))
   (if (and (>= txt2 1000)(< txt2 10000))(progn
       (setq a1 (substr txt1 1 1))
       (setq a2 (substr txt1 2 (- kn 1)))
       (setq a3 (strcat a1 "," a2))
   ))
   (if (and (>= txt2 10000)(< txt2 100000))(progn
       (setq a1 (substr txt1 1 2))
       (setq a2 (substr txt1 3 (- kn 2)))
       (setq a3 (strcat a1 "," a2))
   ))
   (if (and (>= txt2 100000)(< txt2 1000000))(progn
       (setq a1 (substr txt1 1 3))
       (setq a2 (substr txt1 4 (- kn 3)))
       (setq a3 (strcat a1 "," a2))
   ))

a3
)

[행복한하루]

조금 틀렸네여..수정좀 해야될꺼 같네염.^^

[행복한하루]

수정되였습니다.^^

[3:16]

하루님...수고하셨습니당^^* ㅎㅎㅎ

[3:16]

cmo가...중간에 천단위마다 콤마 찍어주는거였꾼요^^* 감사감사^^*

[주말농부]

cmx도 함께들어있어요. 콤마 없애는 리습...^^