[求助][VBA]计算各个图层闭合多段线面积

lzhr4u · 发表于 2006-5-8 09:38:00

假设有"1","2","3","4","5"这几个图层，当前图层为"1"，怎样通过程序计算各个图层中闭合多段线的面积，得到的各图层面积放到新建图层"6"中并列表显示。其中各图层中闭合多段线的扩展数据分别为"1","2","3","4","5"，请高手给出个思路，当然给完整程序更好。

xinghesnak · 发表于 2006-5-8 09:57:00

先通过选择集＋过滤器选择图层上的线段，再通过Area属性算出面积。其他的不说了

兰州人 · 发表于 2007-12-5 15:58:00

这种解释太笼统了，根本没这么简单，近期编个程序解决实际问题。

gdzhou · 发表于 2007-12-6 17:45:00

根据线的Area属性累加,如果是三维多段线就没有这个属性了...
或者用根据多边形面积计算公式：Area = 1/2∑(Xi * Yi+1 – Xi+1 * Yi) (i从0到i-1)来计算面积..

兰州人 · 发表于 2007-12-7 09:50:00

从理论讲Area = 1/2∑(Xi * Yi+1 – Xi+1 * Yi) 可行。
图形闭合在实际工作中才有实际意义。

sunny2008 · 发表于 2008-3-19 09:13:00

可以直接用OBJ。AREA，得到各多短线的中心坐标，将面积以文本形式插入

bai2000 · 发表于 2008-9-18 13:37:00

哪位可以帮忙啊

fjfhgdwfn · 发表于 2008-9-18 18:56:00

这个简单啊！你把多段线创建成面域就可以了（不过如果三维多段线Z值不同，需要修改Z值为相同的啊），面域都是有面积的