Hello Guest it is February 26, 2024, 05:17:37 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.


Topics - Hellfire

Pages: 1
1
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

2
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

3
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

4
Works in progress / 3 axis turn screen ?
« on: September 12, 2012, 07:21:05 AM »
hi
i was wondering if there was a 3 axis turn screen, the third one 1 need as a turret
thanks

5
General Mach Discussion / Mach3 turn atc
« on: September 08, 2012, 06:29:56 PM »
Hi and help lol
I have just done a conversion on a boxford mt2, the machine has a 8 position atc on it. I think the way it operates the stepper motor  rotates it  one way then reverses it to lock it in. There is only one proxy on it.
Do I need a macro to run it, lol I don't even know what a macro is or how to go about writing one. I have searched and seen a few macro's and to be honest it's just complete jibberish to me.
I think I need help

Thanks in advance

Pages: 1