길이 합계 리습 변경 가능 하신분 ㅠㅠ

길이 합산 리습 인데요…

길이 합산 되고 반오림  하고 글자 크기 조절 되는 리습인데..

천단위 로  콤마 표시 되게 할수 있을까요 ..ㅠㅠ

1000 을 1,000  이런 식으로..ㅠㅠ

수정 가능 하신분은 수정 부탁 드려요 ㅠㅠ

(defun c:Dst (/ ent n dis ent_l #a #ad #as )
(setvar “cmdecho” 0)
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command “lengthen” ent_l “”)
(setq dis (+ dis (GETVAR “PERIMETER”)))
(setq n (1+ n))
)
(setq txs(getint “nIn Put Text Size:”)) ; 텍스트 사이즈

(setq #a(strcat (rtos dis 2 0)))
(prompt (strcat “n” #a))
(vl-load-com)
(setq #ad(vla-get-activedocument(vlax-get-acad-object)))
(setq #as
(if (> (vla-get-activespace #ad) 0)
(vla-get-modelspace #ad)
(vla-get-paperspace #ad)
);;if
);;setq
(vla-addtext #as #a (vlax-3d-point(getpoint “n≫≫≫Pick text point:”)) txs)
(mapcar ‘vlax-release-object (list #as #ad))
(princ)
(setvar “cmdecho” 1)
)