center of block

[sanjaymann]

Hi, Help needed in finding the center of a selected block. Thanks & Regards Sanjay Pandey

[swaywood]

hi sanjaymann:
you can use the blockreference's geometricextents.maxpoint & minpoint to get the two corner point, then calculate the center point
inbref.GeometricExtents.MaxPoint

[sanjaymann]

Tried using that but its not falling in the center.

Dim centerX As Double = br.GeometricExtents.MaxPoint.X + br.GeometricExtents.MinPoint.X / 2
Dim centerY As Double = br.GeometricExtents.MaxPoint.Y + br.GeometricExtents.MinPoint.Y / 2

Did i do something wrong?

[_gile · Accepted solution]

Dim centerX As Double = (br.GeometricExtents.MaxPoint.X + br.GeometricExtents.MinPoint.X) / 2
Dim centerY As Double = (br.GeometricExtents.MaxPoint.Y + br.GeometricExtents.MinPoint.Y) / 2

[sanjaymann]

OOPs my bad. Didn't put brackets before dividing by Zero.

Thanks a Ton.