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 ”****＊＊＊＊＊*＊〈
