Messages

1021

General Mach Discussion / Re: Mach3 on Windows 7 32 bit - Startup Screen always small

« on: May 03, 2019, 07:32:24 AM »

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.

1022

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.

1023

General Mach Discussion / Re: Nema34 to Mach3 IB connected to DQ860MA

« on: May 03, 2019, 02:56:02 AM »

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.

1024

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?

1025

General Mach Discussion / Re: Mach3 on Windows 7 32 bit - Startup Screen always small

« on: May 02, 2019, 12:26:53 PM »

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.

1026

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.

1027

General Mach Discussion / Re: Spindle Relay Configuration Questions

« on: May 02, 2019, 04:05:31 AM »

btw witch spindle Controller are you using?

1028

Mach3 under Vista / Re: Safety FIRST: Stop Windows from initializing the Parallel Port(s)

« on: April 29, 2019, 02:21:37 PM »

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.

1029

General Mach Discussion / Re: Remote Input to Start and output when complete

« on: April 29, 2019, 02:16:44 PM »

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

1030

VB and the development of wizards / Re: macro for 4 slot tool change hep

« on: April 26, 2019, 06:16:41 AM »

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.