Segment Dimension Tool - VBA Macro?

Anyone know if this is possible;

I would like to have a macro that would automate placing segment dimensions around objects?

Thanks