Automate Centerlines and Intersection Point

 

Is it possible to create a macro that can add centerlines in both the X & Y (on a selected drawing view) axis and also add a point at the intersection of the centerlines?