cad面积累计lisp怎么用_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")