在VBA里如何完成点取一块区域（不管他是不是闭合），都算出他的面积，并存在一个变

smpoy · 发表于 2005-7-1 15:54:00

在VBA里如何完成点取一块区域（不管他是不是闭合），都算出他的面积，并存在一个变量里啊[br]请各位指点

mikewolf2k · 发表于 2005-7-10 20:08:00

不闭合怎么会有面积呢？

zwd0077 · 发表于 2005-12-17 16:15:00

楼主说的不闭合应该指交叉边界，而不是闭合边界，如由多条相交直线围合而成的区域。我想如果要用面域计算这种情况的面积，是应该把这些交叉边界都在交点处打断，而后用面域方法求面积，但是小弟我也苦于不知用什么方法在交点处打断众多线型组成的图形，不知2楼老大能否赐教！

天龙八部 · 发表于 2007-9-7 16:59:00

应该可以,不过比较复杂,应该这么说吧!看你的闭合区域是否很复杂,首先得用一点,得到点的四周的所有的线段,得到每个线段的点坐标,判断线和线的坐标是否重合,如有未重合的直接连接,最后得到面域

账号		自动登录	找回密码
密码			注册

在VBA里如何完成 点取一块区域（不管他是不是闭合），都算出他的面积，并存在一个变