OK we interrupt your normal show for this special "As the Plasma World Turns".
Auto Stackumup. This is your button code. To run load your material, then load your Gcode and set X0Y0. NOW press the button. NOW if you forgot to load the program it will squeal on ya and make you go back and load it(;-). It will also ask how many copies(1-10) you want. You need to make sure you have enough room for the parts to cut.
'Macro M3007 Auto Batch Load Horizonal
Dim fname As String
Dim Cuts As Single
Dim Xext As Double
Dim Yext As Double
Dim Test as String
Test = ("No File Loaded.")
Fname = FileName()
While Ismoving()
Wend
Message"" &Fname
While Ismoving()
Wend
If Fname = Test Then
MsgBox("No File Loaded, PLEASE LOAD FILE and RESTART")
End
End If
Cuts = Question("How Many Horizonal Parts UP TO 10 ?")
If Cuts >10 Or Cuts <1 Then
MsgBox(" Number Out Of Range 1-10 Retry Again ")
End
End If
For x = 1 To Cuts
If x = 1 Then RunFile()
If x = 2 Then RunFile()
If x = 3 Then RunFile()
If x = 4 Then RunFile()
If x = 5 Then RunFile()
If x = 6 Then RunFile()
If x = 7 Then RunFile()
If x = 8 Then RunFile()
If x = 9 Then RunFile()
If x = 10 Then RunFile()
While Ismoving()
Wend
Xext= GetOemDro(10)
While Ismoving()
Wend
Yext= GetOemDro(5)
While Ismoving()
Wend
Code" G0 Z1.00"
While IsMoving()
Wend
Code"X" & (Xext + .250)
While Ismoving()
Wend
Code"Y"& Yext
While IsMoving()
Wend
DoButton(

While Ismoving()
Wend
DoButton(9)
While Ismoving()
Wend
Next x
Message("End Of Batch Load")
End