무게 구하는 리습 수정

아래 내용은 고캐드에서 구한 리습인데요 출력 내용이 command 창에 나타나는데요 출력되는 내용이 화면에도 text 형태로  command 창 + 화면 출력 되는 형태로 수정하고 싶은데 아시는 분 계시면 가르쳐 주시면 고맙겠습니다.
설명도 조금 첨가 해 주시면 제가 연구 해서 다른것도 수정해 볼려고 해요

(defun c:car()
(setq d (car (entsel “nSelect object : “)))
(setq b (getreal “n 두께입력:”))
(command “area” “o” d)
(setq a (/ (* (getvar “area”) 7.85) 1000000)
c (* a b)
)
)