How to find BLOCK area

[singh.robbie]

So I have searched everywhere and after failing to find an answer again and again this is my last hope.
I am trying to find area covered by a blockrefrence on the drawing.My purpose and goal is to use the area to dermine the placement of multiple blocks withing the same drawing without any block overlaps.The block refrence consits of several text attributes etc.
I have tried to use area command(only works on polylines, not for blocks), tried to use insertion point of the block.......I know there is a way to do this......just can't seem to find it....any help woould be greatly appretiated

[Ed Jobe]

Welcome to AUGI. Kee hal ha.

Have you tried the the IntersectWith method?

[RobertB]

Does the block reference have bounding objects such as a polyline or is it just attribute references?

Check out the GetBoundingBox method.

[singh.robbie]

Thanks a lot for the help guys. The GetBoundingBox works perfectly. For those who Do not know what the function is,it basically finds the min xy co-ordinates and the max xy co-ordinates of a blockreference .This fucntion works with not just a block made of polyline/circle but also with attribute definitions to the block reference. I guess the autocad function 'ZOOMEXTENTS' uses this function to do its thing.

Here's my simple code incase someone was interested.

Sub experiment()

Dim blockobj As AcadBlockReference
Dim LL As Variant
Dim UR As Variant

For Each blockobj In ThisDrawing.ModelSpace
blockobj.GetBoundingBox LL, UR
End Sub

[aritradey27753501]

How to calculate the area of block by using macros?

[RICVBA]

How to calculate the area of block by using macros?

if by "area" of a block you mean its boundingbox area and assuming you're in a 2D environment, then you could simply go:

Sub experiment()

Dim blockobj As AcadBlockReference
Dim LL As Variant
Dim UR As Variant
Dim area as double

For Each blockobj In ThisDrawing.ModelSpace
blockobj.GetBoundingBox LL, UR
area = (UR(0)-LL(0))*(UR(1)-LL(1))
msgbox "'Area' of current block is: " & area
End Sub

[aritradey27753501]

Hi can we calculate the area of block by giving layer as input by using macro?

[RICVBA]

was my answer helpful?
if not, please tell why and give details about your actual goal

[aritradey27753501]

The previous program was helpful. i needed a step ahead to get area of block by taking input as layer? plz help

[RICVBA]

too little info for me. you may want to add some more details about your goal along with some examples