Creating Centerline of shape block and generate linear pattern using VBA

I am using OpenCities Map Ultimate connect edition update 16.

I am trying to create linear pattern programmatically (using VBA) after selecting a block shape.

When i select block (left block in image below), tool should draw ceneterline from mid points of the block (right image in image below) and draw linear pattern using a cell.

Any inouts are appreciated. Thanks