Mentor2 Spindle Drive - Using 'Speed Achieved'

[BR549]

This may help when you get to that part in your project. It is a simple routine to test conditions and either continue or stop and message user. I would test your spindle to time it from stop to full RPM to establish a wait time

Sub Main()

Line# = GetDro(16)               'GetCurrent line#
DoSpinCW()                'Start Spindle
Sleep(3000)               'Wait for spindle to spool

If GetOemDro(11) = 1 And Isactive(input2) Then  GoTo 2   'Check inputs if good then else

 Message" Spindle Failed To SPOOL UP"
 GoTo 3

2:
 Message"Spindle Good for M3 start"
   GoTo 4

 3:
 DOButton(1)               'Feedhold
 DoButton(3)               'Stop
 DoButton(2)                 'Rewind
MSGBOX ("Spindle Failed To Spool Up On Line#") &  Line#     'Message to
Goto 4                                                                                                                                                                                                                 

4:           
 End Sub
 End

[SimonRafferty]

Thanks - that's great.  I'll give it a go in a few days once the mill + PC is a bit more together!

Si

[Hood]

Not great with VB but thinking you may need a few
While IsMoving()
Wend
In there.
Hood

[BR549]

Sub Main()
Line# = GetDro(16)               'GetCurrent line#
DoSpinCW()                'Start Spindle
Sleep(3000)               'Wait for spindle to spool
If GetOemDro(11) = 1 And Isactive(input2) Then  GoTo 2   'Check inputs if good then else
 Message" Spindle Failed To SPOOL UP"
 GoTo 3
2:
 Message"Spindle Good for M3 start"
   GoTo 4
 3:
 DOButton(1)               'Feedhold
While Ismoving()
Sleep(1000)
Wend
 DoButton(3)               'Stop
 DoButton(2)                 'Rewind
MSGBOX ("Spindle Failed To Spool Up On Line#") &  Line#     'Message to
Goto4                                                                                                                                                                                                         
4:           
 End Sub
 End


(;-) GOOD catch Hood , yep need to WAIT until the feedhold stops motion.