求能计算CAD多个多段线封闭图形相加面积的插件

Question

小白，请回答普罗大众都能看懂的，太专业太复杂的我基础薄弱看不懂

Answer 1

(defun c:tes ( / &kw1 a1 ent)
 (vl-load-com)
 (princ "\n请选择封闭多段线")
 (if (setq &kw1 (ssget '((0 . "LWPOLYLINE") (70 . 1))))
  (progn
   (setq a1 0)
   (while (setq ent (ssname &kw1 0))
    (setq &kw1 (ssdel ent &kw1) a1 (+ a1 (vlax-curve-GetArea ent)))
   );循环结束
   (princ "\n选择的多段线统计面积为：")
   (princ (rtos (* 0.000001 a1 2 3)))
   (princ "平方米")
  )
 )
 (princ)
);这个是autolisp程序，复制到记事本，以【.lsp】为后缀命名，CAD命令【appload】加载后，命令【TES】即可使用。

Answer 2

工具-查询-面积，a，回车，o，回车。
依次选择封闭的图形，就会显示累计面积
每选一个图形，就增加一个图形的面积

Answer 3

CAD自带查询面积相加的选项。

追问

怎么操作？求具体步骤

追答

启动查询面积程序，命令行有选择。