[求助]如何求出两条闭合多义线的重叠部分的面积?

kubi

我想用LISP程序求出两条闭合LWPOLYLILNE的重迭部分的面积

LIHUISHUAN

给您点东西，参考一下。

xyp1964

kubi发表于2004-7-28 13:35:00回复：（kubi）如何求出两条闭合多义线的重迭部分的面积? 我想用LISP程序求出两条闭合LWPOLYLILNE的重迭部分的面积

看下帖： dispbbs.asp?boardID=2&ID=24021&page=1 两条多义线并不需要闭合，只要标注部分闭合就可以，注意：画图比例1:1，面积为㎡。

alin

;;;If neither of the two LWpolyline is self-intersected, then you can use ;;; the codes below: (defun c:tt (/ ss1 ss2 a reg1 reg2)
(vl-load-com)
(princ "\nSelect first polyline: ")
(setq ss1 (ssget ":s" '((0 . "LWPOLYLINE"))))
(if ss1 (redraw (ssname ss1 0) 3))
(princ "\nSelect second polyline: ")
(setq ss2 (ssget ":s" '((0 . "LWPOLYLINE"))))
(if (and ss1 ss2)
(progn
(command "copy" ss1 ss2 "" '(0 0 0) '(0 0 0))
(if (vl-cmdf "region" ss1 "")
(setq reg1 (vlax-ename->vla-object (entlast))))
(if (vl-cmdf "region" ss2 "")
(setq reg2 (vlax-ename->vla-object (entlast))))
(vla-boolean reg1 acIntersection reg2)
(if (vlax-erased-p reg2)
(progn
(setq a (vla-get-area reg1))
(vla-erase reg1)
)
(setq a 0)
)
)
)
(princ "\nArea = ")
(princ a)
(princ)
)

kubi

谢谢alin,你的方法正是我想要的 可是此法有限制,即当两条多义线有许多交叉点时, (vla-boolean reg1 acIntersection reg2)会产生错误 命令行显示如下:
The Boolean operation on regions failed
Modeling operation Error
system inconsistency processing edge coincidence

alin

你把含有问题多义线的图贴上来吧。我没有遇到这种情况。注意我的程序要求两条多义线均不能自相交，否则生成不了region

xyp1964

认真看看3楼说的！


估计更简单实用！