1、CAD连续面积标注lisp插件CAD连续面积标注lisp插件 编辑整理:尊敬的读者朋友们:这里是精品文档编辑中心,本文档内容是由我和我的同事精心编辑整理后发布的,发布之前我们对文中内容进行仔细校对,但是难免会有疏漏的地方,但是任然希望(CAD连续面积标注lisp插件)的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈,这将是我们进步的源泉,前进的动力。本文可编辑可修改,如果觉得对您有帮助请收藏以便随时查阅,最后祝您生活愉快 业绩进步,以下为CAD连续面积标注lisp插件的全部内容。;;本插件为Autolisp语言CAD插件,用于创建封闭多段线并标注面积,可连续标注.;获取选
2、点所在封闭区域的面积并标注(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);