Messages

21

Finished Screens / 3 Axis mill with ATC

« on: January 28, 2017, 02:09:38 PM »

Here is the recently updated screenset for my 3 Axis Mill.  The Offsets screen should really be in 'Work in Progress' but thought I'd share it here.

I have to add a few bits to this screen but quite pleased with the results.

22

General Mach Discussion / Re: ATC code help

« on: February 27, 2016, 09:24:05 AM »

Hi all.  Thanks for the replies.  I seem to be getting somewhere now.  I'll adapt the code sample you sent and see
how I get on.

Might have a couple of extra related questions soon.

23

General Mach Discussion / Re: ATC code help

« on: February 27, 2016, 08:12:52 AM »

Not with you!  I thought that part of the code was just about right...although I have made a couple of changes.

At this point the drawbar should be closed (OutPut4)

Code "G53 G0 X40"                Move to clear the tool holders
Code "G53 G0 Y61.61"           Move to Tool #1 position in Y
Code "G53 G0 X6.83"             Move to directly above the tool position
Code "G53 G1 Z-30 F500"       Move to a safe height just above the tool
ActivateSignal(OutPut4)          Open the drawbar
Sleep 1000                            Wait 1 second
Code "G53 G0 Z-50"                Move to the tool 'grab' location
DeActivateSignal(OutPut4)       Close drawbar
Sleep 1000                            Wait 1 second
Code "G53 G0 Z-30"               Move back up to the safe height      
Code "G53 G0 X40"                Move away from the tool holder
Code "G0 X0 Y0 Z0"               Move to Fixture Offset (0,0,0)
While IsMoving()
Wend

Could you make any amendments as required?

Keith

24

General Mach Discussion / Re: ATC code help

« on: February 27, 2016, 07:41:27 AM »

I think so Stirling.  It tells Mach to wait until something stops....Correct?

25

General Mach Discussion / ATC code help

« on: February 27, 2016, 06:44:46 AM »

I'm sure this subject has been discussed many times before, but I need help with setting up my ATC.

I have a Kress spindle with a Sorotec ATC, and a 5 position linear tool holder.  The M/C coordinates for each of the
5 tool holders positions are as follows...

         T1 - X6.83     Y61.61
         T2 - X6.83     Y96.45
         T3 - X6.83     Y131.23
         T4 - X6.83     Y166.05
         T5 - X6.83     Y200.25

The Z height is -50mm (M/C).

As I am fairly new to this, I have tried a VB script with the following code.  Having sourced some ideas from this
forum.  The script is just to select one tool.

If GetSelectedTool() = GetCurrentTool() Then
End
End If
If GetSelectedTool = 1 Then
Code "G53 G0 X40"      
Code "G53 G0 Y61.61"      
Code "G53 G0 X6.83"        
Code "G53 G1 Z-30 F500"
ActivateSignal(OutPut4)
Sleep 1000
Code "G53 G0 Z-50"
While IsMoving()
Wend
Sleep 1000
DeActivateSignal(OutPut4)
Code "G53 G0 Z-30"
Code "G53 G0 X40"
Code "G0 X0 Y0 Z0"
End If

If I omit the first four lines (and the last End If)...it sort of works!  But with the first four lines in, it doesn't do
anything!  I actually don't understand the first four lines....so if someone could advise, that would help.

Also, if I run just the code from line 5, it sort of works...BUT...the ATC opens the drawbar before moving, which
I'm puzzled!

I can't see what is wrong with the simpler code...

Code "G53 G0 X40"      
Code "G53 G0 Y61.61"      
Code "G53 G0 X6.83"        
Code "G53 G1 Z-30 F500"
ActivateSignal(OutPut4)
Sleep 1000
Code "G53 G0 Z-50"
While IsMoving()
Wend
Sleep 1000
DeActivateSignal(OutPut4)
Code "G53 G0 Z-30"
Code "G53 G0 X40"
Code "G0 X0 Y0 Z0"

What am I doing wrong?

Regards.

26

Screen designer tips and tutorials / Re: VB Script to buttons...

« on: December 19, 2015, 12:18:38 PM »

Hi Overloaded....worked a treat.  Thanks for the help!

27

Screen designer tips and tutorials / Re: VB Script to buttons...

« on: December 18, 2015, 05:33:56 PM »

Hi Gerry,

Thanks for the reply.  I've tried the script but get an error!  "Error on Line 1 - Argument not Optional"

I have checked that it's correctly spelled.  The 'Isactive' doesn't turn blue after I've typed it in the scripter...is that the problem?

This is what I have...

If Not Isactive Then
ActivateSignal(Output2)
Else
DeActivateSignal(Output2)
End If

Apologies for my ignorance...still learning this stuff!

Keith

28

Screen designer tips and tutorials / VB Script to buttons...

« on: December 13, 2015, 11:47:42 AM »

Is there a way to 'Execute a Basic Script' to a button, but as a TOGGLE instead of two separate On/Off buttons and two
scripts?

I have a switch that I would like to run my dust extractor with....and I have set the Basic Script to ActivateSignal(OutPut2), which
works fine.  But I also need to turn it off...but preferably with the same button!

I guess I cannot do it with one button, but will need a second button to run DeActivateSignal(OutPut2)..?? 

29

Finished Screens / New Touch Screen - mill

« on: December 13, 2015, 06:11:30 AM »

I thought I'd show off my new Touch Screen set.  I have yet to add Offsets and Diagnostics screens but quite
pleased with the results.

30

Screen designer tips and tutorials / Re: Screen Set display error...

« on: December 13, 2015, 06:08:54 AM »

Thanks Klaus.  That was it!