I managed to create a macro that will change all the dimension units for the open file from "in" to "ft"
Below is the code to use only after you select the dimensions you want to change. I use it in conjunction with a macro that selects all dimensions.
Sub DimensionsToft()
Dim s As Shape
For Each s In ActiveSelection.Shapes
If s.Type = cdrLinearDimensionShape Thens.Dimension.Linear.Units = cdrDimensionUnitMeters 'this really gets you ft for some reasonEnd IfNext sEnd Sub