Welcome, Guest. Please login or register.
Did you miss your activation email?
December 22, 2014, 04:51:44 AM

Login with username, password and session length
Search:     Advanced search
* Home Help Search Calendar Links Login Register
  Show Posts
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 »
491  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 13, 2011, 11:28:32 PM
Oh... Thanks Hood. It didn't come to my mind. So I can program T0404 for the turret and T1010 for the gang tool and the turret won't rotate.

Dan
492  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 13, 2011, 07:32:54 AM
Had a job today which reminded me why I needed to use different offsets for same tool. I have a gang tooling plate which I sometimes mount and use in conjunction with the turret. Use this mainly for high volume jobs where every second matters to avoid wasting time on the turret indexing. So one tool is used from the turret and another two are from the gang tooling plate. In this instance the 3 tools are:

T0404
T0441
T0442

Since the tool is the same the turret doesn't rotate and allows only changing the offset for each tool.

Dan
493  Mach Discussion / VB and the development of wizards / Re: Need help with a simple macro on: September 13, 2011, 06:24:52 AM
Hi,

This should do what you want:

x = GetUserDRO ( 1200 )
z = GetUserDRO ( 1201 )
code "G53G0 X" &x & "Z" &z

Dan
494  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 11, 2011, 11:32:15 PM
Ah... no problem, Hood Grin
Anyhow, you're good in VB if you managed to make it work without "Mod" Smiley

Dan
495  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 11, 2011, 11:35:42 AM
No worries, Wes. Have edited it myself and tested. Works as expected Smiley

Code:
numtools = 99 'this is the number of turret positions
newtool = GetSelectedTool( ) 'new requested tool

thistool = GetOEMDRO(1000) 'current tool DRO
While(thistool < 1 Or thistool > numtools)
thistool = question("Please enter the current tool")
Wend
SetOEMDRO 1000,newtool

current_slot_num = thistool Mod 6
If (current_slot_num =0) Then current_tool_slot = 6

new_slot_num = newtool Mod 6  'new requested turret slot number
If (new_slot_num = 0) Then new_slot_num = 6



If(new_slot_num<> current_slot_num And newtool > 0 And newtool <= numtools) Then
ActivateSignal( OUTPUT2)
While(IsMoving( ))
Sleep(40)
Wend

While(current_slot_num <> new_slot_num)
current_slot_num = current_slot_num +1
If (current_slot_num > 6) Then current_slot_num = 1


While(Not IsActive(INPUT1) ) 'wait for switch to open
Wend

While(IsActive( INPUT1)) 'wait for switch to close
Wend

Wend

DeActivateSignal( OUTPUT2)
While(IsMoving( ))
Sleep(40)
Wend
End If
SetCurrentTool( newtool)

Sleep(13)
496  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 09:33:45 AM
Sorry, was too quick to answer Grin it didn't show you edited the message...

Dan
497  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 09:32:22 AM
Yes, it is, Wes. A Txxyy will call it. By default Mach3Turn executes the M6Start macro upon encountering a Txxyy command.

Dan
498  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 09:26:41 AM
Great, Wes. Would be nice if you could make the macro work.

Thanks,
Dan
499  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 09:11:34 AM
Wes,

Here is my macro:

Code:
numtools = 6 'this is the number of turret positions
newtool = GetSelectedTool( )

thistool = GetOEMDRO(1000) 'current tool DRO
While(thistool < 1 Or thistool > numtools)
thistool = question("Please enter the current tool")
Wend
SetOEMDRO 1000,newtool

If(newtool <> thistool And newtool > 0 And newtool <= numtools) Then
ActivateSignal( OUTPUT2)
While(IsMoving( ))
Sleep(40)
Wend
While(thistool <> newtool)
thistool = thistool +1
If (thistool > 6) Then thistool =1
While(Not IsActive(INPUT1) ) 'wait for switch to open
Wend
While(IsActive( INPUT1)) 'wait for switch to close
Wend
Wend
DeActivateSignal( OUTPUT2)
While(IsMoving( ))
Sleep(40)
Wend
End If
SetCurrentTool( newtool)

Sleep(13)


The turret rotates in one direction. The While loop counts the signals returned on INPUT1 and then OUTPUT2 deactivates and the turret reverses and locks.

Dan
500  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 07:22:29 AM
You can only use 99 tools in Mach3Turn. Well, unless it hasn't changed recently... Wink

Dan
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 »
Powered by MySQL Powered by PHP Powered by SMF 1.1.20 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!