怎样判断多义线之间的关系，怎样求两条多义线围成区域的面积

GTJ116600

求助怎样自动判断两条多义线的关系，怎样自动求算两条多义线交叉（包括包含）围成的面积？

yoyoho

cuyongping 发表于 2013-4-18 21:10

                               
登录/注册后可看大图

好像不能用！为什么了？

如果不要删除的话不就可以了!
...............        
       (progn
          (setq area (vla-get-area rn1))
         ;(vla-delete rn1)
           area
................

wowan1314

用面域！ 面域相减

eachy

用 xdapi 就简单了
xdrx_curve_subtract

功    能：两个曲线求差(曲线1-曲线2)

调用格式：(xdrx_curve_subtract <曲线实体名1> <曲线实体名2> [生成差集POLYLINE标志])

说    明：1.实体为曲线，包括：line,*polyline,arc,circle,ellipse,spline。
          2.若给参数[生成并集POLYLINE标志]，且为T,则该函数提示用户交互绘制两曲线求差后的轮廓线。
          3.若曲线不封闭，则把曲线起始点和终止点连线作为封闭曲线处理。

返 回 值：1.若不给绘出标志，则返回求差后的轮廓线的顶点表，格式：((顶点1...顶点n)...(顶点1...顶点n))
            求得几个差集，就有几个项。

          2.若给绘出标志T,则生成差集轮廓线，且返回T.

Gu_xl

先给你个思路，程序你自己尝试写一下：
1、将多段线1和多段线2分别转为面域1和面域2，分别计算出面积S1和S2
2、判断相互间关系：
   面域1 和面域2作 union布尔运算，的到新的面域，计算出新面域的面积S3
a、若 S3 = S1 + s2 ,若多段线1和多段线2无交点，则多段线1和多段线2相离，若多段线1和多段线2有交点，则多段线1和多段线2相邻
b、若S3 = S1=s2,则多段线1和多段线2重合
c、若s3=s1,则多段线1包含多段线2，若有必要，可进一步判断多段线1和多段线2 有无交点
d、若s3=s2,则多段线2包含多段线1，若有必要，可进一步判断 多段线1和多段线2  有无交点  
e、若 S3<S1+S2，则多段线1和多段线2相交，重合面积为s1+s2-s3

XDSoft

eachy 发表于 2013-4-18 16:22

                               
登录/注册后可看大图

用 xdapi 就简单了
xdrx_curve_subtract

一提API，我就有点惭愧，我争取尽量尽快把它升级到高版本下。现在要做的事太多{:soso_e109:}

XDSoft

wowan1314 发表于 2013-4-18 16:11

                               
登录/注册后可看大图

用面域！ 面域相减

面域是一个思路，能简化程序，面域提供了很多函数，比如点是否在面域上等等都可以使用。

不过还是希望大家能讨论出基本的图形计算解决方法，用LISP实现出来。

Lispboy

个人认为，位置关系无非下面几种情形

1、完全在另外一个多段线内 并集面积为为外面的多段线面积。
2、两多段线交叉， 并集面积大于相对大的多段线面积，但小于两条多段线面积之和。
3、在另外一条多段线外面，并集面积等于两多段线面积之和。

如何实现请高手指点。

Free-Lancer

[pcode=lisp,true](defun RegionSub (e1 e2 / addregion va axerr ms rn1 rn2 area)
  (defun addregion (ms obj / va axerr)
    (setq va (vlax-make-safearray vlax-vbObject '(0 . 0)))
    (vlax-safearray-put-element va 0 obj)
    (if        (VL-CATCH-ALL-ERROR-P
          (setq        axErr
                 (VL-CATCH-ALL-APPLY
                   'vla-addregion
                   (list ms va)
                 )
          )
        )
      nil
      (car (vlax-safearray->list
             (vlax-variant-value axErr)
           ) ;_ 结束vlax-safearray->list
      ) ;_ 结束car
    )
  )
  (setq        ms  (vla-get-modelspace
              (vla-get-activedocument (vlax-get-acad-object))
            )
        rn1 (addregion ms (vlax-ename->vla-object e1))
        rn2 (addregion ms (vlax-ename->vla-object e2))
  )
  (if (and rn1
           rn2
      )
    (progn
      (vla-boolean rn1 acInterSection rn2)
      (if (vl-catch-all-error-p
            (vl-catch-all-apply 'vlax-get (list rn2 'area))
          )
        (progn
          (setq area (vla-get-area rn1))
          (vla-delete rn1)
          area
        )
      )
    )
  )
)[/pcode]

cuyongping

好像不能用！为什么了？

cuyongping

输入命令没有反应!:L

liuyj

XDSoft 发表于 2013-4-18 17:10

                               
登录/注册后可看大图

一提API，我就有点惭愧，我争取尽量尽快把它升级到高版本下。现在要做的事太多

万分期待啊

yoyoho

cuyongping 发表于 2013-4-18 21:58

                               
登录/注册后可看大图

输入命令没有反应!

(RegionSub (CAR (ENTSEL)) (CAR (ENTSEL)))

hao3ren

不封闭的多义线呢？

Lispboy

hao3ren 发表于 2013-4-19 11:59

                               
登录/注册后可看大图

不封闭的多义线呢？

严格几何意义上，不封闭就没面积了。不过如果想算，那么就是认为首尾闭合的吧。