371
General Mach Discussion / Re: Scripter Compile Error bites again :(
« on: March 14, 2018, 07:57:13 AM »
Ah well, there is always UCCNC and so on.
Not if you invested in a CS-LABS controller
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Ah well, there is always UCCNC and so on.
The FeedRate macro had been corrupted somehow by Mach3. There should have been a Linux-style LineFeed between the two instructions, but Windows is not real good with that Linux feature: it prefers <CR><LF>. Trying to edit a macro using NotePad can be tricky: you need to use the embedded VB Script Editor to get the right line format.
Cheers
Roger
'V2
Parg = Param1()
Qarg = Param2()
Rarg = Param3()
Speed = GetRPM()
Zpos = GetOEMDro(180)
If Parg = 0 Then
Message"M84 ERROR P = 0"
DoOEMButton(1003)
Sleep(50)
DoOEMButton(1002)
End
End If
If Rarg = 0 Then
Message"M84 ERROR R = 0"
DoOEMButton(1003)
Sleep(50)
DoOEMButton(1002)
End
End If
If Speed = 0 Then
Message"M84 ERROR S = 0"
DoOEMButton(1003)
Sleep(50)
DoOEMButton(1002)
End
End If
If Zpos < Qarg Then
Message"M84 ERROR Zstart < Q !!!"
DoOEMButton(1003)
Sleep(50)
DoOEMButton(1002)
End
End If
If Zpos = Qarg Then
Message"M84 ERROR Zstart = Q !!!"
DoOEMButton(1003)
Sleep(50)
DoOEMButton(1002)
End
End If
Qarg = Qarg - Zpos
Qarg = Abs(Qarg)
If Qarg < 0.001 Then
Message"M84 Canceled"
End
End If
Message"M84 START"
' set parameters in user dro
SetUserDRO(1511, Qarg) ' depth
SetUserDRO(1512, Parg) ' pitch
SetUserDRO(1513, Speed) ' rpm ffd
SetUserDRO(1514, Rarg) ' rpm rev
' start rigid tapping cycle
NotifyPlugins(10101)
' wait for csmio-ip end of rigid tapping cycle
SetUserDRO(1510, 0)
While(GetUserDRO(1510) = 0)
Sleep(50)
NotifyPlugins(10102)
Wend
Message"M84 DONE"
(M5 TAP)
N3036 M5
N3038 M9
N3040 M1
N3042 T6 M6
N3044 G54
N3046 M7
N3050 G0 X-9.5 Y-7.9
N3052 G43 Z34.612 H0
N3056 Z24.612
N3058 Z23.612
N3060 M84 Q11.262 P0.8 S350 R350
N3062 Z23.612
N3066 Z34.612