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)
)
代码完。
只能计算具有面积属性的图元,比如圆形,多边形,椭圆等。和那个自动计算封闭区域面积的程序相比,实用性比较小。