면적구하는 리습인데요
최종결과값에 단위(M2)를 표기하고 싶습니다.
;;************피크포인트 면적구해서 표기하기*************
(defun c:are(/ 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”))
(command “erase” area_last “”)
; (setq p_area1 (strcat ” 면적 : ” (rtos a_get_ar 2 2) ” m2″))
(setq p_area3 (/ a_get_ar 1000000))
(setq p_area4 (rtos p_area3 2 2))
; (princ p_area1)(princ”n”)
(command “text” p_area “600” “0” p_area4)
(princ)
)