能根据选定的图层所包围的面积吗

yxh1202

   经常要计算工程量，看到论坛很多高人。想问问能根据选定的图层所包围的闭合面积吗，谢谢

XDSoft

http://bbs.xdcad.net/forum.php?m ... %3D47%26typeid%3D47

Underway

Ref:
http://autodesk.lithium.com/t5/A ... problem/m-p/3757176
or
http://forums.augi.com/archive/index.php/t-17409.html

Lispboy

为啥都这么画线呢？ 当初为什么不闭合？或者画这样的时候，随手就用下BO生成下封闭多边形，为以后统计做好数据准备？

Lispboy

选定的图层所包围的闭合面积

同一个图层上有很多这样的？

yxh1202

具体点就是，绿线和蓝线分别代表不同图层画的实体线。现在要求出他们包围的面积

Lispboy

yxh1202 发表于 2013-5-26 15:48
具体点就是，绿线和蓝线分别代表不同图层画的实体线。现在要求出他们包围的面积

凑合下用吧，信息你一直不细说

1. (defun c:tt()
   
2.    (if (setq pt (getpoint "\n请在封闭区域内点一点<退出>:"))
   
3.      (progn
   
4.        (setq e (bpoly pt))
   
5.        (if (setq ed (entget e))
   
6.          (progn
   
7.             (setq area (vla-get-area (vlax-ename->vla-object e)))
   
8.             (entdel e)
   
9.             (princ (strcat "\nArea Is:" (rtos area 2 2)))
   
10.          )
    
11.        )
    
12.      )
    
13.    )
    
14.    (princ)
    
15. )
    

(defun c:tt()<br />    (if (setq pt (getpoint "\n请在封闭区域内点一点<退出>:"))<br />      (progn<br />        (setq e (bpoly pt))<br />        (if (setq ed (entget e))<br />          (progn<br />             (setq area (vla-get-area (vlax-ename->vla-object e)))<br />             (entdel e)<br />             (princ (strcat "\nArea Is:" (rtos area 2 2)))<br />          )<br />        )<br />      )<br />    )<br />    (princ)<br /> )<br />

Free-Lancer

Lispboy 发表于 2013-5-27 01:07
凑合下用吧，信息你一直不细说

就不要再转换了，vlax-curve 类支持 ename 和 object ，用 vlax-curve-getarea