Welcome, Guest. Please login or register.
Did you miss your activation email?
April 21, 2014, 07:39:39 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 / 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
442  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
443  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)
444  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
445  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
446  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
447  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
448  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
449  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
450  Mach Discussion / Works in progress / Re: New IPS (Interactive Programming System) Professional Screen for Turn on: September 09, 2011, 06:47:54 AM
T201 is still tool 1 with another set of offsets, (I have no reason to think this functional unless I have a third side to turn)

To me it looks like tool number 2 with offset number 1 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 »
Powered by MySQL Powered by PHP Powered by SMF 1.1.19 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!