Lisp to to change dim scale linear to match auxilary scale

[mbrandt5]

Is there a lisp that will automate the dim linear scale to match the auxiliary scale...

so if a dimension is represented four times larger then I want it to read I could

Select dimension:

Then the code would read the CANNO SCALE

and change the Dim Linear Scale of selected object to reflect that

Example included