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

lzhr4u

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

xinghesnak

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

兰州人

xinghesnak发表于2006-5-8 9:57:00先通过选择集＋过滤器选择图层上的线段，再通过Area属性算出面积。其他的不说了

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

gdzhou

根据线的Area属性累加,如果是三维多段线就没有这个属性了...

或者用根据多边形面积计算公式：Area   =   1/2∑(Xi   *   Yi+1   –   Xi+1   *   Yi)   (i从0到i-1)来计算面积..

兰州人

gdzhou发表于2007-12-6 17:45:00根据线的Area属性累加,如果是三维多段线就没有这个属性了...或者用根据多边形面积计算公式：Area   =   1/2∑(Xi   *   Yi+1   – &n

从理论讲Area   =   1/2∑(Xi   *   Yi+1   –   Xi+1   *   Yi) 可行。

图形闭合在实际工作中才有实际意义。

sunny2008

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

bai2000

哪位可以帮忙啊

fjfhgdwfn

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