[Lisp] 치수선 합을 구하는 리습인데, 소수점이 안보이게 하고 싶습니다.

[버건디]

안녕하세요.

(행복한 하루)님의 치수선 합을 산출근거로 표기하는 리습인데요.

소수점을 안보이게 하고 싶은데, 어떻게 해야 할까요?

고수님들의 도움이 절실히 필요합니다.

모두 모두 행복하세요^^

(defun c:dsum()
(vl-load-com)
(setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(prompt "\n 합계를 구하려는 치수선을 선택하라. ")
(and 
(setq ss (ssget (list (cons 0 "DIMENSION"))))
(setq pt (getpoint "\n 텍스트 삽입점 : "))
(progn
(setq index 0 totalsum 0 ca "")
(repeat (sslength ss)
(setq e (ssname ss index))
(setq obj (vlax-ename->vla-object e))
(setq txt (vla-get-textoverride obj))
(if (or (= txt "")(vl-string-search "<>" txt))      
(setq txt (vla-get-measurement obj))
(setq txt (read (vl-string-subst "" "," txt)))
)
(setq ca (strcat ca (rtos txt 2 4) "+"))
(if (numberp txt) (setq totalsum (+ totalsum txt)))
(setq index (1+ index))
)
(setq ca (vl-string-right-trim  "+" ca))
(setq ca (strcat ca "=" (rtos totalsum 2 4)))
 (vla-addtext (vla-get-modelspace AcDoc) ca (vlax-3d-point pt) (getvar "TEXTSIZE"))
)      
)
(princ)
)

※ 말머리 필수 (말머리 누락시 통보없이 게시 글이 삭제될 수 있습니다.)

※ 회원정보는 최소한 '운영진 공개'로 지정

※ 캐드나 리습 관련 질문일 경우 반드시 캐드 종류와 버전 명기 (ex> 오토캐드2022 / 윈10 64비트)

   <캐드 / 윈도우 종류 및 버전 :                  Win10          /                  2018             >

※ 질문은 최대한 성의있고 자세하게 (답변자가 되묻게 질문하지 말아주세요.)

※ 이외는 자유롭게 글 남겨 주시면 됩니다.

[예성]

(rtos txt 2 4), (rtos totalsum 2 4) 부분을 검색해서 (rtos txt 2 0) (rtos totalsum 2 0) 형식으로 바꿔주면 됩니다.

[버건디]

선생님, 고수님 매우매우 감사합니다.^^