怎么求多段线与多段线相交部分的面积

changyiran

两个多段线相交后有一部分重合区域，如何求这个重合区域的面积呢，求教高手们！

Andyhon

先以 boundary 取得 重合区域
再以 Area 取得 该区域的面积

changyiran

Andyhon 发表于 2012-9-18 12:22  先以 boundary 取得 重合区域  再以 Area 取得 该区域的面积

你好，我是想在代码中实现，那问题就出来了，怎么用代码确定重合区域的内部一点呢？

Andyhon

得依对象的复杂而定.
Ref:
http://bbs.mjtd.com/thread-10311-1-1.html
http://bbs.mjtd.com/thread-24191-1-1.html

changyiran

Andyhon 发表于 2012-9-18 13:24  得依对象的复杂而定.  Ref:  http://bbs.mjtd.com/thread-10311-1-1.html

非常感谢，我研究下！

changyiran

已解决，先将两多段线转为面域，再用intersect求值即可！

changyiran

changyiran 发表于 2012-9-18 17:18
已解决，先将两多段线转为面域，再用intersect求值即可！

听G版的就把自己写的发上来，还望各位指教！

2. (defun chmj(en1 en2 / EN MJ VLA);求多段线重合部分的面积
   
3.   (command"region"en1"")
   
4.   (setq en1(entlast))
   
5.   (command"region"en2"")
   
6.   (setq en2(entlast))
   
7.   (command"intersect"en1 en2"")
   
8.   (setq en(entlast))
   
9.   (setq vla(vlax-ename->vla-object en))
   
10.   (setq mj(vla-get-area vla));重合部分面积
    
11.   (entdel en)
    
12.   mj
    
13. )

(defun chmj(en1 en2 / EN MJ VLA);求多段线重合部分的面积<br />   (command"region"en1"")<br />   (setq en1(entlast))<br />   (command"region"en2"")<br />   (setq en2(entlast))<br />   (command"intersect"en1 en2"")<br />   (setq en(entlast))<br />   (setq vla(vlax-ename->vla-object en))<br />   (setq mj(vla-get-area vla));重合部分面积<br />   (entdel en)<br />   mj<br /> )

changyiran

这段代码当创建的面域是空的时候面积就是错的，因此要用代码确定创建的是不是空面域，这一点不知道怎么实现啊

Andyhon

得 验证 组码0 之值 ...

or 先作验证
(vlax-property-available-p (vlax-ename->vla-object en1) 'area)

changyiran

Andyhon 发表于 2012-9-18 20:45  得 验证 组码0 之值 ...   or 先作验证

老师你好，我请教下，你用的这个property函数是什么意思啊，还有参数为什么要是en1呢？请老师赐教，谢谢！