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

kubi · 发表于 2004-7-28 13:35:00

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

LIHUISHUAN · 发表于 2004-7-28 13:43:00

给您点东西，参考一下。

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:jl4bs1jjjvr.LSP
下载次数:0 文件大小:1.44 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

xyp1964 · 发表于 2004-7-28 13:50:00

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

alin · 发表于 2004-7-28 15:04:00

;;;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 · 发表于 2004-7-28 19:42:00

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