선길이 리습 소수점이하 않보이게 해주세요

제가 사용하는 리습입니다.
p1 찍고 p2 찍고 선의 중간 찍으면 길이가 자동으로 표시가 되는 리습인데요…
소수점이하는 필요없는데요,…
어떻게하면 소수점이하를 않보이게 할까요?
고수님들 도와주세요…


(defun c:dddd (/ p1 p2 di h pt)
           (SETVAR “OSMODE” 3)
           (COMMAND “LAYER” “M” “거리” “C” “1” “” “”) 
    (command “layer” “s” “거리” “”)
            (setq p1 (getpoint “n first point: “))
            (setq p2 (getpoint p1 “n nest point: “))
           
           (setq di (distance p1 p2))
    (setq h (* (getvar “dimtxt”) (getvar “dimscale”)))
(setq pt (getpoint “n pick Point ———- : “))
(command “text” “j” “c” pt h 13 (rtos di 2 1))
(prin1)
    )