计算特定l的面积

jomer · 发表于 2022-7-6 21:45:45

大家好！

我需要一个VBA代码来计算特定层的面积

我有一个计算面积的代码，但它只计算模型空间中的整个对象和多段线

非常感谢你的帮助

顺致敬意，
乔默

登录/注册后可看大图

BIGAL · 发表于 2022-7-6 22:02:53

您是否要求1层的边界区域，而不是单个对象？

如果是这种情况，那么根据所涉及形状的交互作用，有很多不同的解释答案的方法。

jomer · 发表于 2022-7-6 22:14:38

谢谢你的关心，先生

是的，先生，我指的是一层的面积，不是单个物体

这是我在计算整个模型空间的面积时得到的代码

公共函数GetTotalPolylineArea（）为双精度
双色暗区
因身份而模糊
Dim pl作为AcadLWPolyline

对于本图纸中的每个ent。模型空间
如果ent的类型为AcadLWPolyline，则
设置pl=ent
面积=面积+发光面积
如果结束
下一个
GetTotalPolylineArea=面积

结束函数

先生，我在组合框中有层列表
问题是如何获得我在该组合框中选择的层的面积

先生，先谢谢你

goran · 发表于 2022-7-6 22:26:26

'我指的是1层的区域，而不是单个对象'

层作为层并没有面积，但你们可以计算层上元素的面积，但同样，不是所有的。点，文本没有面积。层只是任何对象的属性，就像collor（实体是我们通常使用的词）

goran · 发表于 2022-7-6 22:36:14

Ops，旧帖子，抱歉：-）

Cleyton Ramos · 发表于 2022-7-6 22:51:51

copy


You can identify each polyline through the layer and select it and extract the area.

[编程交流] 计算特定l的面积

发表回复

精选推荐