You cannot use standard tools to do this as a dimension.
It would require a VBA macro or script commands that figure out the data..
in the meantime all I can suggest and you probably did this already is label it twice one with bearing or angle above and again with distance or length above..
I tried to make a script keyins
DIMCREATE ELEMENT LABELLINE;set item toolsettings dimlabelline=4;d%
DIMCREATE ELEMENT LABELLINE;set item toolsettings dimlabelline=3;%d
which work if you run one at a time but I'm having trouble linking them to wait until the first is done with a data point selection
the first does the angle above and the send does the length above...
need a little more though but you could use these in 2 Function keys ie F12 & sht F12
perhaps I could put these in a macro later.....