;*** SCALESETTINGS.GXM Save in FP Batch Folder
;*** LOADED FROM MENU LINE SETTING $R(0)
;*** OR FROM MACRO /VRL,0,~,LB,SCALE-DIMS.GXM;
/MSP,++,/XMD,++;
/VLC,;
/PMT,1,'ReScale Dimensions ... <ESC> to abort ...',#;
/PMT,2,'Enter Scale Setting to Change to 1 :_',#;
/VRL,0,~;
/IF,$DERR[NE]0,/GTO,EXIT;
/IF,$R(0)[LE]0,/GTO,EXIT;
;*** Edit these VRL ~ values for a scale 1 value
.SCALE1SETTINGS; EDIT THE TILDE "~" WITH YOUR SCALE 1 SETTINGS
;**********************************************
/VRL,2,~; ;*** DIM EXTENSIONS ABOVE
/VRL,3,~; ;*** DIM EXTENSIONS BELOW
/VRL,4,~; ;*** DIM EXTENSIONS OFFSET
/VRL,5,~; ;*** DIM ARROWS LENGTH
/VRL,6,~; ;*** DIM TEXT SIZE
/VRL,7,~; ;*** DIM TEXT OFFSET ABOVE
/VRL,8,~; ;*** DIM TEXT OFFSET INLINE
/VRL,9,~; ;*** LEADER SHOULDER LENGTH
;********************************************************
.SETSCALE;
/IF,$R(2)[EQ]0,/BEEP,/PMT,1,'Edit Macro to Enter Values ... any key ...',#,/CIN,/GTO,EXIT;
UG,D,!,DX,++,!;		 ;*** Proximity Fixed ON
.DIMS;
UG,D,!,EA,$R(2)*$R(0),!; ;*** DIM EXTENSIONS ABOVE
UG,D,!,EB,$R(3)*$R(0),!; ;** DIM EXTENSIONS BELOW
UG,D,!,EO,$R(4)*$R(0),!; ;*** DIM EXTENSIONS OFFSET
UG,D,!,AL,$R(5)*$R(0),!; ;*** DIM ARROWS LENGTH
UG,D,!,TZ,$R(6)*$R(0),!; ;*** DIM TEXT SIZE
UG,D,!,TA,$R(7)*$R(0),!; ;*** DIM TEXT OFFSET ABOVE
UG,D,!,TI,$R(8)*$R(0),!; ;*** DIM TEXT OFFSET INLINE
UG,D,!,ES,$R(9)*$R(0),!; ;*** LEADER SHOULDER LENGTH
/BEEP;
/PMT,1,'Note : Proximity Fixed is turned ON ... Stacked dimensions may be on top of each other ... any key ...',#,/CIN;
.EXIT;
/MSP,--,/XMD,--;