利用图案填充求闭合区域的面积
本帖最后由 gaics 于 2015-12-28 14:23 编辑一直在苦苦寻找计算闭合区域面积的方法，最后没想到用一个图案填充就能简单解决！(defun C:RR (/ ss ent obj area)
(vl-load-com)
(setq ss (ssget))
(vl-cmdf "-HATCH" "p" "s" "s" ss "" "")
(setq ent (entlast))
(setq obj (vlax-ename->vla-object ent))
(setq area (vla-get-area obj))
(vl-cmdf "ZOOM" "o" ss "")
(alert (strcat "截面积为：" (rtos area 2 2) "mm2"))
(entdel ent)
(princ)
) 常规是用boundary，图案填充，在高版本cad才有面积属性，低版本是没有的 zzyong00 发表于 2015-12-28 13:18 static/image/common/back.gif
常规是用boundary，图案填充，在高版本cad才有面积属性，低版本是没有的
哦，是这样吗？
页:
[1]