The problem is that MACH3 has a mind of its own with macros and scripts when combined with Gcode. It seems to loose control of the script threads and CAN on "some" systems just fly through the Script before each segment of Gcode is completed.

It seems to be the case with your machine. Here it runs fine. Loops through the gcode and updates the countdown.

SO I guess that cool stuff that combines Scripting and GCODE is out for the masses.  

A a double check can you run the script from the Script editor to see if it runs correct from there??

Load the Gcode open the editor select the macro code and then press run.

I guess I can try using semaphores

(;-) TP

LOL. Actually I tried that last nite and it froze up my computer and I had to re-boot it. I know some machine are just weird. I have a dedicated computer on the cnc plasma. It's a real bare bones running XP. I don't know what's going on, but I'm stubborn, I'll try to figure it out. I'm always up for a challenge. lol I'll mess with it some later today, keep you posted. I might put that one on the back burner and try the next episode. I'm going to have another cup of coffee before I go out to the shop. I have to throw some logs in the woodburner and warm it up in there. It got chilly last nite, frost all over the place. I'll keep you posted on progress with this one. Have yourself a good day.

Thanks so much

GL

oK try this , It works here BUT then again so did the last version(;-) the idea is to make it work on your machine.


'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
Dim Cdown As Single
Sub Main()

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

Cdown = Cuts

SetUserDro(2002,Cdown)

Message" Parts to Go: "& Cdown

For x = 1 To Cuts
If x = 1 Then Goto N1
If x = 2 Then GoTo N1
If x = 3 Then GoTo N1
If x = 4 Then GoTo N1
If x = 5 Then GoTo N1
If x = 6 Then GoTo N1
If x = 7 Then GoTo N1
If x = 8 Then GoTo N1
If x = 9 Then GoTo N1
If x = 10 Then Goto N1


N1:

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(8)
While Ismoving()
Wend
DoButton(9)
While Ismoving()
Wend

Cdown=(Cdown-1)

SetUserDro(2002,Cdown)
While Ismoving()
Wend

Next x

Message("End Of Batch Load")

end sub
End

 
(;-) TP

I will try it, but I have to warm the shop up first, I hate cold. I'm an old transplanted desert rat. lol  I really appreciate the help, you have been more than helpful. I actually like messing with stuff, you have me hooked. I  need to get more up to speed on this style of code. Well, I'll give this latest version a try and mess with it. I'll keep you posted.

Thank you for being patient with this "Old Dog". lol

GL

From one old DAWG to another it is RUFF,RUFF  to get going on a cold day.

(;-) TP

IF that did not work try it this way. Enclosed macro.

(;-) TP

The first one you sent did the same as the other, but did run correctly if ran from the script editor. M3007b did the same, ran only one part and the counter went to zero before any move. But ran fine from the script editor.  WEIRD.....

GL

I am afraid this is one of those lost causes for the masses. When you mix Gcode and CB together "sometimes" all you get is a mess. (;-).  I will think on this some more .

(;-) TP

Sounds good. It isn't a life or death, gotta have it right now, end of the world situation. No rush at all. I'll say it again, I really appreciate the help.
  What's next. lol

Thanks

GL

Is it tuesday again?  dang time flies.

Auto scale is next. Here iuse it about 1 time a day to adjust a cut profile(artsy work) to fit a piece of material OR make the pruduct larger or smaller as needed. Customer want THAT art BUT it needs to be 24" wide and the file is for 18"wide.

Here is the button codes AND there is NO GCODE involved here(;-)


    'Macro M3004 Auto Scale Start buttom
Dim Size1 As Double
Dim Size2 As Double
Dim Scale As Double

Size1 = Question(" Current Size ? ")   'Asks for 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   


'*****************************************************
'Macro Button to reset scaling
SetOemDro(59,0)
SetOemDro(60,0)
End