Welcome, Guest. Please login or register.
Did you miss your activation email?
April 25, 2014, 01:23:37 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 »
441  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
442  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
443  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
444  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)
445  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
446  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
447  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
448  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
449  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
450  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 06:59:07 AM
Sorry but I don't follow. Read the manual, section 7.5.3.

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 »
Powered by MySQL Powered by PHP Powered by SMF 1.1.19 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!