CAD连续面积标注lisp插件

;

;本插件为Autolisp语言CAD插件，用于创建封闭多段线并标注面积，可连续标注。

;;获取选点所在封闭区域的面积并标注

(defun c:mjbz()

(setvar "cmdecho" 0)

(setq pt (getpoint "\n选取点："))

(setq zt (getreal "\n字体高度："))

(while pt

(setvar "cecolor""1")

(command "bpoly" pt "")

(setq en (entlast))

(if (/= en nil)

(progn

(command "area""o" en)

(setq aa (getvar "area"))

(redraw en 3)

(alert (strcat "面积=" (rtos aa 2 3)))

(command "text""c" pt zt 0 (strcat (rtos aa 2 3)"m2")) )

)

(setvar "cecolor""bylayer")

(setq pt (getpoint "\n选取点："))

)

(prin1)

)

(prompt "***********<>**********") (prin1)

;;