CAD连续面积标注lisp插件.docx

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）)）
（command "text" ”c” pt zt 0 (strcat (rtos aa 2 3）”m2")）
）
)
(setvar ”cecolor” ”bylayer")
(setq pt （getpoint "\n选取点:")）
)
(prin1)
)
(prompt ”****＊＊＊＊＊*＊〈<C:MJBZ〉〉＊*＊*＊*＊＊**"）
(prin1）
;;