求某个图层所有闭合线框的面积

gc666666

工作中需要大量统计闭合线框的面积，有没有程序能自动求出某一个图层中所有闭合线框的面积，或者思路也行，先谢谢各位了！

天凉好个秋

论坛的插件

(defun C:mj (/  pt a b c s ss tt ttt )
(vl-load-com)
(setq pt (getpoint "\\n请点取要标注的范围内一点:"))
(command "-boundary" pt "" "")
(setq a (entlast))
(setq b (vlax-ename->vla-object a))
(setq s (vla-get-area b))
(setq ss (rtos (/ s 1000000)2 2))
(setq tt (vla-get-length b))
(setq ttt (rtos (/ tt 1000)2 2))
(command "textsize" 200 "")
(command "mtext"  pt pt (strcat "面积=" ss "平米\n" "周长=" ttt "米") "")
(command "erase" a "")
)

start4444

搜索一下论坛大把面积统计的插件代码