결과에서 소수점 삭제 어떻게 하나요?

(setq di (distance p1 p2))

(command “text” “j” “bc” p3 “300” “0” (/ di 2) “”)

에서요 (/di 2) 값이 123.0000 이런식으로 나오는데
소수점 삭제 어떻게 하는지 좀 알려주세요