Hello Guest it is March 29, 2024, 01:28:27 AM

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 - Hellfire

Pages: 1 2 3 »
1
VB and the development of wizards / Re: help with atc macro
« on: December 15, 2016, 05:59:36 PM »
I am assuming there is nothing I can do to add safety protocols into it ?

2
VB and the development of wizards / help with atc macro
« on: December 09, 2016, 06:32:12 AM »
hi
could someone help me with this macro, i want to put some sort of safety features in it. e.g. check correct tool has been selected before continuing
If GetSelectedTool()=GetCurrentTool() Then
End If


If GetSelectedTool =1 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig1)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If







If GetSelectedTool =2 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig2)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If






If GetSelectedTool =3 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig3)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =4 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig4)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =5 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig5)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =6 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig6)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =7 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig7)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If




If GetSelectedTool =8 Then
ActivateSignal(Output5)
While Not IsActive(oemtrig8)
Wend
DeactivateSignal(Output5)
ActivateSignal(Output6)
While Not IsActive(oemtrig11)
Wend
Sleep 1000
DeactivateSignal(Output6)
End If
End

3
General Mach Discussion / Re: Denford Mirac ATC mach3 help
« on: November 08, 2016, 07:06:26 PM »
Any help at all peeps, I am totally out of my depth here.

4
General Mach Discussion / Denford Mirac ATC mach3 help
« on: November 07, 2016, 03:53:00 PM »
I am doing a conversion on a Mirac lathe to Mach3.
i have come to the difficult bit now, i am looking some help with a macro for a tool change. on the rear of the tool changer there is a rotary switch with 8 positions and another micro switch to tell the machine it has locked.
i have all the inputs reading on the motion controller.
when the motor goes fwd it pushes the tool plate out and then starts to rotate it, on reverse it draws the plate back in until the micro switch sees it. The turret is connected to a VFD
should add i have no clue about macros.
cheers

5
General Mach Discussion / Re: Turret tool changer problems
« on: May 26, 2013, 03:31:44 PM »

numtools = 99                                              'The number of valid tools
newtool = GetSelectedTool( )                                         'read the new requested tool

currenttool = GetOEMDRO(1000)                                     'user DRO 1000 is used to store the current tool. In this line assign whatever is in this DRO to the variable
While(currenttool< 1 Or currenttool > numtools)                'Check that currenttool contains a legal tool number.
currenttool = question("Please enter the current tool")       ' If not ask to enter the current tool in position.
Wend
SetOEMDRO 1000,newtool                                               ' Set user DRO 1000 to the new tool number

dist = (newtool Mod 8 ) - (currenttool Mod 8 )                    ' the number of turret positions to move to the requested tool.

If (dist < 0) Then                                                            'Check if rollover needed
dist = 8 - Abs(dist)
End If

Code " G91 G0 A" & dist                                                  ' Move to the new turret position.
While IsMoving()
Wend
Code " G91 G0 A" & (-1/5)                                           ' Reverse move to lock - set to 1/5th of one position and can be changed
While IsMoving()
Wend

Code "G90"                                                                  ' Set back to absolute mode.   

SetCurrentTool(newtool)

This is the macro I am using, which was done by a very kind member on here Dan13

6
General Mach Discussion / Turret tool changer problems
« on: May 26, 2013, 03:26:11 PM »
Hi peeps

I have added another tool post just below the 8 tool turret on my boxford 240 .
The turret has been working fine, but when I select tool 10 which is on the additional tool post it still turns the turret, but when I select tool 9 it doesn't . Any ideas please,

Cheers

7
General Mach Discussion / Re: Mach3 turn atc
« on: September 14, 2012, 01:36:19 PM »
Oh no, i seen Hoods one but it activates a solenoid

8
General Mach Discussion / Re: Mach3 turn atc
« on: September 14, 2012, 11:01:10 AM »
Dan you where right, it is mechanical.
i stripped the thing down and what did i discover, alternating ratchet distances. the tool turret holds 4 external tools and 4 internal.
is there any thing i can do.

9
General Mach Discussion / Re: Mach3 turn atc
« on: September 13, 2012, 02:27:04 PM »
ok managed to find a screen with an a axis for turn. when changing tools the a axis doesnt seem to reset.

10
General Mach Discussion / Re: Mach3 turn atc
« on: September 13, 2012, 02:00:12 PM »
no not mechanical, tried that. sorry

Pages: 1 2 3 »