AutoLISP自动标注图元面积

AutoLISP自动标注图元面积，选择图元在指定点插入面积标注，代码如下。

(defun c:areat ()
    (setq olderr *error*)
    (setq *error* myerr)
    (setvar "cmdecho" 0)
    (setq oldos (getvar "osmode"))
    (setvar "osmode" 0)
    (setq entobj (car (entsel)))
    (command "area" "E" entobj)
    (setq getarea (rtos (getvar "area") 2 2))
    (setq pt (getpoint "\n面积标注点："))
    (command "text" pt "" "" getarea)
    (setvar "osmode" oldos)
    (setvar "cmdecho" 1)
    (setq *error* olderr)
    (princ)
)

代码完。

只能计算具有面积属性的图元，比如圆形，多边形，椭圆等。和那个自动计算封闭区域面积的程序相比，实用性比较小。