AutoLISP自动计算封闭区域面积

最新推荐文章于 2024-04-01 14:42:52 发布

weixin_33973600

最新推荐文章于 2024-04-01 14:42:52 发布

阅读量1.9k

点赞数 3

本文介绍了一段AutoLISP代码，用于自动计算CAD中封闭区域的面积。通过选取点来创建边界多边形并计算其面积。

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

AutoLISP自动计算封闭区域面积，代码如下。

(defun c:test()
(setvar "cmdecho" 0)
(setq pt (getpoint "\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)))
    )
      )
    (entdel en)
    (setvar "cecolor" "bylayer")
    (setq pt (getpoint "\n选取点："))
    )
(prin1)
)