looking for macro to change drawing units to fractions

Hi I'm looking for a simple one touch macro to do the following:

1. change "units" in "document properties" to fractions

2. set denomenator to 16

3. select round to nearest fraction.

Thanks!!!

SolidworksApi macros