AutoLISP自动标注图元面积

最新推荐文章于 2021-01-13 02:22:47 发布

weixin_33725270

最新推荐文章于 2021-01-13 02:22:47 发布

阅读量1.3k

点赞数 2

本文详细介绍了使用AutoLISP自动计算并标注CAD图元面积的方法，包括选择图元、计算面积及在指定点插入面积标注的完整流程。适用于圆形、多边形、椭圆等具有面积属性的图元。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

AutoLISP自动标注图元面积，选择图元在指定点插入面积标注，代码如下。

(defun c:areat ()
    (setq olderr *error*)
    (setq *error* myerr)
    (setvar "cmdecho" 0)
    (setq oldos (getvar "osmode"))
    (setvar "osmode" 0)
    (setq entobj (car (entsel)))
    (command "area" "E" entobj)
    (setq getarea (rtos (getvar "area") 2 2))
    (setq pt (getpoint "\n面积标注点："))
    (command "text" pt "" "" getarea)
    (setvar "osmode" oldos)
    (setvar "cmdecho" 1)
    (setq *error* olderr)
    (princ)
)