Hatch area

[Anonymous]

Hi;

How do I calculate the height, width and area of a hatch?
Is it possible at all?


--
David
Strängbetong, Sweden

[Anonymous]

I have tried something similar with no luck. If you find a way let me know.

"David" wrote in message
news:8732D4B26A0C5EAA6DEC572E0F1559C5@in.WebX.maYIadrTaRb...
> Hi;
>
> How do I calculate the height, width and area of a hatch?
> Is it possible at all?
>
>
> --
> David
> Strängbetong, Sweden
>
>

[Anonymous]

There's almost nothing impossible you know.

Sub CalcullateHatchThings()
Dim Ent As AcadEntity
Dim Pt As Variant

Dim PtMin, PtMax

ThisDrawing.Utility.GetEntity Ent, Pt, "Sélect one hatch"

Ent.GetBoundingBox PtMin, PtMax

'Area
MsgBox Ent.Area & " Units Square"

'Height
MsgBox PtMax(1) - PtMin(1) & " Units for Height"

'Width
MsgBox PtMax(0) - PtMin(0) & " Units for Width"

End Sub

[Anonymous]

LOL... lets discard that last answer, since it is only valid if the hatch is a rectangle.

Here is a posibility (that I did not try, but it sould work):

Hatch boundaries work pretty mutch the same way that a region boundary work. So if you could extract the boundaries of a hatch, (GetLoopAt), then use the given entities to create a Region, you will then be able to use the Area property te get the area of the original hatch.

Problem is, this only works on associative hatches..... but it should work.