求面积

梁旭武

你试一下这个程序 (defun c:tt()
(setq a(getpoint"\n点区域"))
(command "boundary" a "" "Y")
(setq b(entlast))
(command "area" "O" b)
(setq c (getvar "AREA"))
(command "text" a 3 0 (rtos c))
(command "ERASE" b "")
)