求某个图层所有闭合线框的面积
工作中需要大量统计闭合线框的面积，有没有程序能自动求出某一个图层中所有闭合线框的面积，或者思路也行，先谢谢各位了！论坛的插件
(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 "")
) 搜索一下论坛大把面积统计的插件代码
页:
[1]