area구할때…

birthday님의 글
————————————
면적을 구할려고 하는데요~~
구하기 난해한걸 pline으로 그려서 object를 선택해서 누르면 된다길래 ..
그러나 구할수가 없네여..
pline width와 상관이 있나요?
어케해야 둥근 면적도 쉽게 구할수 있나여?
————————————

리습 사용할줄 아시면 아래꺼 쓰세요…
명령어는 are 구요. 화면에 구할면적이 다 나오게 한다음 사용하시구요.
글씨크기는 제가 고정시켜버렸으니까 편하신대루 바꾸세요.

;;************피크포인트 면적구해서 쓰기*************
(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_area3 (/ a_get_ar 1000000))
(setq p_area4 (rtos p_area3 2 2))
(command “text” p_area “600” “0” p_area4)
(princ)
)