2024年5月5日发(作者：)

CAD连续面积标注lisp插件

CAD连续面积标注lisp插件

编辑整理：

尊敬的读者朋友们：

这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对

文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（CAD连续面积标注lisp插件）

的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步

的源泉，前进的动力。

本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以

下为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）)）