计算特定l的面积
大家好！我需要一个VBA代码来计算特定层的面积
我有一个计算面积的代码，但它只计算模型空间中的整个对象和多段线
非常感谢你的帮助
顺致敬意，
乔默
https://www.cadtutor.net/forum/uploads/monthly_2018_09/abc.thumb.png.c9a4dcf8203e3c2c3b68cafb3e91bd07.png 您是否要求1层的边界区域，而不是单个对象？
如果是这种情况，那么根据所涉及形状的交互作用，有很多不同的解释答案的方法。 谢谢你的关心，先生
是的，先生，我指的是一层的面积，不是单个物体
这是我在计算整个模型空间的面积时得到的代码
公共函数GetTotalPolylineArea（）为双精度
双色暗区
因身份而模糊
Dim pl作为AcadLWPolyline
对于本图纸中的每个ent。模型空间
如果ent的类型为AcadLWPolyline，则
设置pl=ent
面积=面积+发光面积
如果结束
下一个
GetTotalPolylineArea=面积
结束函数
先生，我在组合框中有层列表
问题是如何获得我在该组合框中选择的层的面积
先生，先谢谢你
'我指的是1层的区域，而不是单个对象'
层作为层并没有面积，但你们可以计算层上元素的面积，但同样，不是所有的。点，文本没有面积。层只是任何对象的属性，就像collor（实体是我们通常使用的词） Ops，旧帖子，抱歉：-）
You can identify each polyline through the layer and select it and extract the area.
页:
[1]