I need urgent help..!please...

[BR549]

Hood Let me know if you need help with the code. We do something close with plasma. It is posted in the Mach tool box.

It will also depend on IF he needs to "Run from here" or "set next line" to restart . With plasma being a 2d function we can just use "set next line". With a sewing function I really don't know what is needed(;-) I would need to see an example of his Gcode file.

ALSO there is a set of function buttons on the main mach screen called Remember  and Return. If you stop the program with a feedhold/stop you would push the remember button then move off and do whatever. When you are ready to return punch return. A popup window will allow you to autoreturn to the spot you left. Then do you favorite restart function(run from here, set next line)

Just a thought,(;-)

[Hood]

Terry I would be delighted if you did this, as I say my VB skills are crap and although I usually get there in the end it takes me a long time and many syntax errors

Hood

[BR549]

THis is based on doing a SET NEW LINE approach If you need to use "RUN FROM HERE" let me know.   Hood I am glad top help out just did not want to butt in if you were wanting to practice your VB(;-)

There are 2 buttons 1 to stop the program and record all the paramaters needed to restart then MOVE off to a safe location.

1 button to restart the process move back to position and restart.

Give it a try and let me know if we need to modify it for your use

'***********************************************************************
'Stop Button     Feedhold/stop to check torch
DoButton(1)                 'Feedhold
While IsMoving      'Wait for movement to stop
Sleep(100)
Wend
DoSpinStop                                 ' Turn OFF spindle if running
Sleep(1000)
DoButton(286)            ' Set positions
Sleep(1000)
DoButton(3)      'Set Stop
Sleep(1000)
SetVar(301,GetDro(2))
sleep(100)
SetVar(304,GetDro(18))   'SetVar to Feedrate
Sleep(100)
SetVar(305,GetDro(16))   'SetVar to CurrentLine#
Sleep(100)
Code"G0 Z10.000"      'Move to a SafeZ
While IsMoving()      
Sleep(1000)
Wend
Code"G0 X0.000 Y0.000"    'Move to a safe XY position
While Ismoving()
Sleep(1000)
Wend
Code"(Stop Routine Complete)"
End    

'************************************************************************************************************************

'Restart Button to return to work
Code"G1 Z10.000 F#304"             'Go To a SafeZ
While IsMoving()
Sleep(1000)
Wend
SetDro(16,Getvar(305))   'Reset SET NEXT LINE #
Sleep(100)
SetDro(18,GetVar(304))   'Reset Feedrate
Sleep(100)

DoOemButton(285)             'Return to stop position
While IsMoving()
Sleep(1000)
Wend
Code"G1 Z#301 F#304"      'Return Z to stop Point
While IsMoving()
Sleep(1000)
Wend
DOSPINCW()      'ReStart Spindle if needed
Sleep(100)
DoButton(0)       'Resume Program Run from Stop Point
Code"(You are now back ONLINE cutting )"
End          

 
 
 

[Hood]

  Hood I am glad top help out just did not want to butt in if you were wanting to practice your VB(;-)

Dont ever refrain from doing that, VB is a chore for me. It took me nearly a week to work out how to do the code for my coil winder then a week or so after that I happened upon some that Brian had done for Benny Getting it done though does leave me with a sense of achievement but its something I prefer to only do when I have to. I do prefer to work things out for myself rather than get it handed to me on a plate but when its for others I have no objection to the more knowledgeable doing it

Hood