View model at 1:1 scale

I am looking for an automated method to automatically zoom in/out to get the model to a real life scale (1:1). I currently just hold my calipers up to the screen and zoom to make a feature fit the calipers, however this is tedious. If I can find/create a macro to do this automatically that would be ideal. Does anybody have any suggestions?

There has been a few postings I have found that link to Mike Lombard's site (http://mysite.verizon.net/mjlombard/Macros/scale1.zip) however the site comes up at "Locked" and is not reachable.

Thank you in advance.

SolidworksApi macros