Hello Guest it is November 16, 2019, 04:00:55 PM

Show Posts

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.


Messages - TPS

221
doest not allways mean that you have changed Settings, sometimes for what ever reason Mach3 crashes the XML file
with the Settings.
have a look to xmlbackups Folder, there should be a couple of saved XML files.

222
General Mach Discussion / Re: it is possible with Mach3
« on: May 03, 2019, 03:24:40 AM »
i think principialy it should be no Problem

https://www.machsupport.com/forum/index.php?topic=11158.0
https://www.machsupport.com/forum/index.php?topic=35320.msg242125#msg242125

use different work Offsets (G54...) for the different nozzles and M10/M11 to Switch the valves.

223
on your Photo it Looks like ENBL+ is connected to PC5V

for a first try i would connect ENBL- to PCGND, and if it is working to a free OUTPUT of BOB and use the OUTPUT
for the enable.

224
General Mach Discussion / Re: Mach3 X/Y/Z Step Pin & Dir Pin #
« on: May 02, 2019, 12:39:55 PM »
maybe by following the wiring to the pin's of the 25 subd plug?

225
have a look for a tool called WinResizer, i use this if i have to work on screensets witch are designed for an
other Resolution.

226
General Mach Discussion / Re: Spindle Relay Configuration Questions
« on: May 02, 2019, 12:23:29 PM »
Currently my spindle direction is controlled with a switch (FWD-OFF-REV) and speed is with a potentionmeter.

so there must be a Kind of Controller, maybe it has got control Inputs to Switch ON/OFF instead of switching
the powersupply. just a thought.

227
General Mach Discussion / Re: Spindle Relay Configuration Questions
« on: May 02, 2019, 04:05:31 AM »
btw witch spindle Controller are you using?

228
to talk about safety in context with macropump or other "enable" signals  or estop Input
(on a 5v switching on everything BOB) is just ridiculous.

229
code to turn a Output ON

Code: [Select]
Sub Main()
 ActivateSignal(Output1)
End Sub

code to turn a Output OFF

Code: [Select]
Sub Main()
 DeactivateSignal(Output1)
End Sub

feel free to read any manual

230
this would bo the complete code, with refernce check and X/Z move.

Code: [Select]
Public NewTool As Integer

Sub Main
'//Declarations
Dim StartTime, ActTime As Single
MaxToolNum = 4      'Max number of tools for the changer

OldTool = GetCurrentTool()
Tool = GetSelectedTool()

If OldTool = Tool Then
Message ("Selected Tool already loaded")
Exit Sub
End If

If Tool > MaxToolNum Then
Tool = Question ("Enter New Tool Number up to " & MaxToolNum)
End If

'X-Axis not in reference
If GetOEMLED(807) Then
DoButton(3)
Sleep(500)
Message ("X-Axis not referenced -> Abort !!")
Exit Sub
End If

'Z-Axis not in reference
If GetOEMLED(809) Then
DoButton(3)
Sleep(500)
Message ("Z-Axis not referenced -> Abort !!")
Exit Sub
End If

Message "ATC X-Axis to TC position"
Code "G90 G53 G0 X2"
While IsMoving()
Sleep(15)
Wend

Message "ATC Z-Axis to TC position"
Code "G90 G53 G0 Z2"
While IsMoving()
Sleep(15)
Wend


doagain:

Call StartTool

While NewTool <> Tool
Call CheckPins
Wend

Call StopTool

're check
Call CheckPins
If NewTool <> Tool Then
GoTo doagain
End If

SetCurrentTool(NewTool)
End Sub


'//// Subroutines /////////

Sub StartTool
   ActivateSignal(Output8)
End Sub

Sub CheckPins
   If GetCsmioIn(91,6) = True Then
      NewTool = 1
      End If
   If GetCsmioIn(91,5) = True Then
      NewTool = 2
      End If
   If GetCsmioIn(91,4) = True Then
      NewTool = 3
      End If
   If GetCsmioIn(91,3) = True Then
      NewTool = 4
      End If
End Sub

Sub Stoptool
   DeActivateSignal(Output8)
   ActivateSignal(Output9)
   'wait for input 23 or timeout
StartTime = Timer

   
   While GetCsmioIn(91,7) = False
Sleep(20)
ActTime = Timer
If ActTime > StartTime + 3 Then
DeActivateSignal(Output9)
MsgBox "Timeout Input23!!"
DoButton(3)
Sleep(300)
Exit Sub
End If
   Wend
   DeActivateSignal(Output9)
End Sub 

'CSMIO Eingang lesen
Function GetCsmioIn (ByVal adr As Integer, ByVal n As Integer) As Boolean
If(GetInBit(adr, n)) Then
GetCsmioIn = true
Else
GetCsmioIn = false
End If
End Function


IMPORTANT:

it will move first X than Z axis!

the values of this two code lines:

   Code "G90 G53 G0 X2"

   Code "G90 G53 G0 Z2"

are in machine coord's and maybe Need to be adjusted.