리습은 전혀 모르거든요. 그래서 부탁드립니다.
면적 구하는 리습을 다운 받았는데
면적을 구해서 화면상에 텍스트로 뿌리고 싶은데 잘 안되네요.
어케 해야 되는지 몰겠어요. 부탁드립니다.
한번의 클릭으로 두개의 면적 모두 텍스트로 뿌리고 싶어요.
;;************피크포인트 면적구하기*************
(defun c:par(/ p_area area_last)
(setvar "cmdecho" 1)
(setq p_area (getpoint"n 면적을 구할 곳에 Pick Point.. :"))
(command "bpoly" p_area "")
(setq area_last (entlast))
(command "area" "o" area_last)
(setq a_get_ar (getvar "area"))
(setq a_a1 (/ a_get_ar 3.3058))
(command "erase" area_last "")
(setq p_area1 (strcat "면적 : " (rtos a_get_ar 2 2) " m2"))
(setq p_area2 (strcat "면적 : " (rtos a_a1 2 2) " 평"))
(princ p_area1)(princ"n")
(princ p_area2)
(princ)
)