If you are going to use ENTMOD, why not grab the block reference insertion point (it is in WCS), use the TRANS function, converting it to the current UCS, calculate POLAR from that point, then TRANS that point back to the WCS and update the object...at least I think that is the way it should work