Lisp to move overlapping blocks into a spiral array of non-overlapping blocks

[Anonymous]

Is anyone aware of a lisp routine that can identify overlapping blocks and move them one-by-one into a spiral array so that they no longer overlap?

I envision 3 user inputs:

1. User to specify the block name or select an instance of the block
2. User to specify the "overlap" threshold (threshold = 0 means instances must share the same XY coordinates)
3. User to specify the distance each block should be moved

I've provided a Before/After visual example of 8 overlapping blocks being "spiral arrayed" below:

Before   After (numbers shown for clarity only)

I greatly appreciate any and all help. Thank you!

[dlanorh]

Use the vla-getboundingbox method to get the extents of the block, lower left and upper right corners. The upper left and lower right corners, width and height can then be calculated from these. Using the width, height and the correct corner (depending on whether the spiral is clockwise or ccw) will allow the spiral array to be formed.