Hey TP,
Was playing around with the Auto-Scale Macro and came up with a slight change that takes less input from the operator. Since the MaxX is already stored in the OemDro(59) after the program is loaded, why have the operator enter it. If it is shown in a MsgBox for reference, then the operator doesn't have to refer to another screen.
This is what I came up with:
'Macro M3004 Auto Scale Start buttom
Dim Size1 As Double
Dim Size2 As Double
Dim Scale As Double
Dim XSize1 As String
XSize1= cStr(GetOemDRO(10))
MsgBox "Current Size is: " & XSize1 'Shows what the current MaxX value for OemDro(59)
Size1 = GetOemDro(10) 'Gets the current size
Size2 = Question("New Size ?") 'Asks for the NEW scaled size
While Ismoving()
Wend
Scale = (Size2/Size1) 'Calculates the scale factor
While Ismoving()
Wend
SetOemDro(59,Scale) 'Set the X axis scale factor
While Ismoving()
Wend
SetOemDro(60,Scale) 'Set the Y axis scale factor
While Ismoving()
Wend
DoOemButton(160) 'REGEN the toolpath display
While Ismoving()
Sleep(100)
Wend
End
Just messing around, what do you think?
GL