利用图案填充求闭合区域的面积

gaics

一直在苦苦寻找计算闭合区域面积的方法，最后没想到用一个图案填充就能简单解决！

2. (defun C:RR (/ ss ent obj area)
   
3.   (vl-load-com)
   
4.   (setq ss (ssget))
   
5.   (vl-cmdf "-HATCH" "p" "s" "s" ss "" "")
   
6.   (setq ent (entlast))
   
7.   (setq obj (vlax-ename->vla-object ent))
   
8.   (setq area (vla-get-area obj))
   
9.   (vl-cmdf "ZOOM" "o" ss "")
   
10.   (alert (strcat "截面积为：" (rtos area 2 2) "mm2"))
    
11.   (entdel ent)
    
12.   (princ)
    
13. )

(defun C:RR (/ ss ent obj area)<br />   (vl-load-com)<br />   (setq ss (ssget))<br />   (vl-cmdf "-HATCH" "p" "s" "s" ss "" "")<br />   (setq ent (entlast))<br />   (setq obj (vlax-ename->vla-object ent))<br />   (setq area (vla-get-area obj))<br />   (vl-cmdf "ZOOM" "o" ss "")<br />   (alert (strcat "截面积为：" (rtos area 2 2) "mm2"))<br />   (entdel ent)<br />   (princ)<br /> )

zzyong00

常规是用boundary，图案填充，在高版本cad才有面积属性，低版本是没有的

gaics

zzyong00 发表于 2015-12-28 13:18
常规是用boundary，图案填充，在高版本cad才有面积属性，低版本是没有的

哦，是这样吗？