안녕하세요.

LISP 을 할줄모르는 초보라 작업 시 불편했던 부분이 있어서

수정후 사용하였으면 좋을것 같아 LISP 고수분들께 수정을 요청드려봅니다.

아래 LISP인데.. 현재 산출된 값이 작은 박스 창에 나오게 되어 있습니다.

산출된값을 도면내에 TEXT로 표기되게 수정을 하였으면 합니다.

고수님들 수정좀 부탁드리겠습니다 ㅠ

(defun c:WT()

(setq a (car (entsel “nSelect object : “)))

(setq b (getreal “n 두께입력:”))

(command “area” “o” a)

(setq c (/ (* (getvar “area”) 7.85) 1000000))

(setq tt (* b c))

(Alert (rtos tt 2 1))

)

^^;;