如何快速查询CAD多个封闭图形的面积，可以标注面积吗？不是用AA命令！！！有小程序吗？

Question

如题所述

Answer 1

依次选中封闭图形，用命令：list查询
网上有面积标注插件，可以下载
或者将下面的lisp代码复制到记事本里，保存为：面积标注.lsp
在cad里加载后，用car运行插件
(defun c:car ( / o1 ipt opp parea)
(setq clyer(getvar"clayer"))
(command "layer" "m" "范围线" "")
(command "layer" "c" "2" "范围线" "")
(command "color" "bylayer")
(setq ipt (getpoint "\n 选择内部点: "))
(command "-Boundary" ipt"" "")
(setq o1 (entlast))
(redraw o1 3)
(command "area" "O" "L")
(setq opp (getvar "area"))
(initget 1)
(setq parea(getpoint"\n 选择面积标注位置"))
(command "layer" "m" "area text" "")
(command "layer" "c" "81" "area text" "")
(command "color" "bylayer")
(initget 1)
(command "text" parea "1"0 (rtos opp 2 3)) "这个三是位数"
(setq elast(entlast))
(command "scale" elast"" parea)
(setvar"clayer"clyer)

)