an AutoLISP routine that makes the change from paper space back to model space almost automatic and reverts to model space drawing scale