Hello Guest it is December 07, 2021, 03:44:51 AM

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.


Messages - Oldraven

Pages: « 1 2 3 4 »
21
Bargain Basement / Re: probe
« on: July 07, 2011, 03:32:01 AM »
Hi Dave,

I have seen your home page and looked at the video's.

I am not certain of this works with Metric. I see the word " inch " on several pages.

Is the Probing function also operational in the Personal Edition?

The screens look very good.

Regards,
Jos
Holland

22
General Mach Discussion / Re: Mach3, Probe, and Digitize Wizard Issue
« on: July 05, 2011, 01:04:29 PM »


Hello Vic,

what software do you use for digitizing with your probe?
I have this one;

http://www.youtube.com/watch?v=lp0e9NqmbUI&feature=player_embedded

Under the Imperial screen from Hossmachine it would hardly move.
The screenset delivered with the digitizer did the same, hardly any movement. Certainly not as shown in the movie.

I am in contact with the seller and he will send me a pdf for user instructions.

But for now it works with the Hoss screen.

Thanks,

Jos
Holland

23
Bargain Basement / Re: probe
« on: July 05, 2011, 12:58:00 PM »
Hi Vicrider,

The thread you referred too did not help me very much.
My probe does work in Mach3, I see ithe probe LED go on and off when I touch the probe pin.

After the afternoon google-ing I found the Mach3 Probe Screen from Hossmachine.
He even had a screen for Metric.

That did the trick.
It works so far good for me.

thanks for the reply,

Jos
Holland

24
Bargain Basement / Re: probe
« on: July 05, 2011, 05:22:35 AM »

How?
Can you elaborate please?

Jos
Holland

There's no need for special software, Mach3 can handle it.

Jeff

25

OK,
I have it working.
For the Emco5cnc ATC this macro now works.

First of all one has to Home the ATC in Mach3 Manual screen >> Home All.
Then , in Mach3 Auto, load the G-code to be executed.

The macro looks if the Homing has been done and sets a two variables.
One that homing has been done and one to make sure that Mach3 knows that the ATC homing position
is the Tool #1 position.
The hint to use SetVar helped me a lot.

Jos


' Based on Boxford 160TCL Toolchanger Macro.
' Modified for the EMCO5cnc Automatic Tool Changer.
' ATC has a steppermotor and an optical slot @ INPUT1
' Works by turning CW to just past the tool position
' and then CCW into a stop.
' Axis setup as rotary e.g. move 360 = 1 full turn.


If IsLoading() Then
' Do Nothing, program loading
Else

' Dim Variables

Dim Num_Tools As Integer
Dim CW_Steps_Per_Tool As Integer
Dim CCW_Steps As Integer
Dim HoldingDRO As Integer
Dim Requested_Tool As Integer
Dim Current_Tool As Integer
Dim CW_Feed As Integer
Dim CCW_Feed As Integer
Dim moves As Integer
Dim total_move As Integer

' First check if Homing has been done

If GetVar(300) = 1 Then         ' Has homing been done?
  GoTo Main               ' Yes, is Homed, jump to Main
  Else
End If
 
' If Not, check if ATC is homed.

If IsActive(INPUT1) Then              ' Look for ATC Home pulse
    SensorState = "Active"
Else 
  Message " Input 1 is NOT Active, Home first."
  Code "M30"               ' End G-code execution
 End
End If

If SensorState = "Active" Then
    SetVar(300,1)                    'Is Homed
   Setvar(301,1)            'Set Current Tool as #1
End If

Main

' set up some vars

Num_Tools = 6               
CW_Move_Per_Tool = 62          '360/Num_Tools , not used
CCW_Move = 15

Requested_Tool = GetSelectedTool()
Current_Tool = GetVar(301)
CW_Feed = 700   
CCW_Feed = 700
Current_Feed = GetOEMDRO(818)

' start tool change

Message ("Requested Tool No=" & Requested_Tool)

If Requested_Tool > Num_Tools Then
Message "Requested Tool No. too high, program stopped."
Code "M30"
End
End If

If Requested_Tool < 1 Then
Message "Requested Tool No. too low, program stopped."
Code "M30"
End
End If

If Requested_Tool = Current_Tool Then
' do nothing
Else
' lets do some changing
If Requested_Tool > Current_Tool Then moves = Requested_Tool -Current_Tool
If Requested_Tool < Current_Tool Then moves = (Num_Tools - Current_Tool) +Requested_Tool

total_move = (moves * CW_Move_Per_Tool)+(CCW_Move/2)

Code "G91 G94"                'incremental & Feed per minute
Code "G0 A" & total_move               '& "F" & CW_Feed
Code "G0 A" & "-" & CCW_Move            '& "F" & CCW_Feed

While IsMoving()
Wend

SetCurrentTool Requested_Tool
SetVar(301,Requested_Tool)      'Store Current Tool
Code "G90" ' back to absolute movement
Code "F" & Current_Feed
End If
End If

' end of tool change                                         

26
OK,

With this I have some direction.
I'll have a look at it tomorrow.

Shutting down for the evening it is past 8 o'clock in the evening here.

Thanks,

Jos

27
Never mind the delte the END stament I see where you are heading(;-)

(;-) TP

Yes, that was the idea. End the execution of the G-code and jump to the beginning.
That works.

I wanted to set a sort of register after the statement ; Current_tool = 1. I.E. Homing_Done = 1
But that info is lost every time M6Start is called by a subsequent tool change in the running G-code.

I need to put the info somewhere in a register so that I can have the macro look at it and determine its status.
By a second call to the tool change the macro can fetch its status and skip checking for the initial homing.

Regards,
Jos
Holland

28
VB and the development of wizards / M6Start for Toolchanger again.
« on: June 07, 2011, 07:43:22 AM »
Hi ,

I used a M6Start macro that someone had written for a 6 tool Boxford ATC.
That worked, sort of, for my Emco5 ATC converted with a stepper motor and one optical slot for homing.

The problem was that the macro could not see if the ATC was homed in the Manual screen, Home All.
It would turn at random, tool positions were not absolute.

I inserted this piece of VB code in the beginning of the macro;

'----------------------------------------
' First check if ATC is homed.

If IsActive(INPUT1) Then
  Message " Input 1 is Active"
  SensorState = "Active"
Else  
  Message " Input 1 is NOT Active, Home first."
  
  Code "M30"   'End the execution of the G-Code.
End
End If
If SensorState = "Active" Then
Current_Tool = 1      'Set ATC Home as Current Tool.
End If         

'-----------------------------------------

That set the Current_Tool as tool # one.
But, when a second tool change was asked for in the G-code things went wrong.
The macro insists to be homed again.

I need some code or place to store the information that the part homing command is to be skipped.
Say that I insert a variable like Homing_Done just before the   end If;

If SensorState = "Active" Then
Current_Tool = 1      'Set ATC Home as Current Tool.
Homing_Done = 1
End If

I want to store this Homing_Done somewhere. Can that be done outside the macro and have the macro look for it each time the M6Start
is called in the current G-code?

This is the total macro;

' Boxford 160TCL Toolchanger Macro.
'
' Works by turning CW to just past the tool position
' and then CCW into a stop.
' Axis setup as rotary e.g. move 360 = 1 full turn.

' Adapted for the EMCO5cnc Automatic Tool Changer.
' Checks if ATC is Homed first and sets Current_Tool as #1.
' If not Homed it ends the program.

If IsLoading() Then
' Do Nothing, program loading
Else


' Dim Variables

Dim Num_Tools As Integer
Dim CW_Steps_Per_Tool As Integer
Dim CCW_Steps As Integer
Dim HoldingDRO As Integer
Dim Requested_Tool As Integer
Dim Current_Tool As Integer
Dim CW_Feed As Integer
Dim CCW_Feed As Integer

Dim moves As Integer
Dim total_move As Integer

'----------------------------------------
' First check if ATC is homed.

If IsActive(INPUT1) Then
  Message " Input 1 is Active"
  SensorState = "Active"
Else  
  Message " Input 1 is NOT Active, Home first."
  
  Code "M30"   'End the execution of the G-Code.
End
End If
If SensorState = "Active" Then
Current_Tool = 1      'Set ATC Home as Current Tool.
End If         

'-----------------------------------------
' set up some vars

Num_Tools = 6
CW_Move_Per_Tool = 360/Num_Tools
CCW_Move = 10
HoldingDRO = 1050
Requested_Tool = GetSelectedTool()
'  Current_Tool = GetUserDRO(HoldingDRO)
CW_Feed = 700      
CCW_Feed = 700
Current_Feed = GetOEMDRO(818)



' start tool change

Message ("Requested Tool No=" & Requested_Tool)

If Requested_Tool > Num_Tools Then
Message "Requested Tool No. too high, program stopped."
Code "M30"
End
End If

If Requested_Tool < 1 Then
Message "Requested Tool No. too low, program stopped."
Code "M30"
End
End If

If Requested_Tool = Current_Tool Then
' do nothing
Else
' lets do some changing
If Requested_Tool > Current_Tool Then moves = Requested_Tool -Current_Tool
If Requested_Tool < Current_Tool Then moves = Num_Tools - Current_Tool +Requested_Tool

total_move = (moves * CW_Move_Per_Tool)+(CCW_Move/2)

'Code "G01 x-10 F700"
'Code "z-10"
Code "G91 G94" 'incremental & Feed per minute
Code "G0 A" & total_move '& "F" & CW_Feed
Code "G0 A" & "-" & CCW_Move '& "F" & CCW_Feed
While IsMoving()
Wend

SetCurrentTool Requested_Tool
SetUserDRO HoldingDRO, Requested_Tool
Code "G90" ' back to absolute movement
Code "F" & Current_Feed
End If
End If

' end of tool change          

Thanks for looking,

Jos
Holland

29
General Mach Discussion / Re: G74 for turning not recognized in Mach3.
« on: April 28, 2011, 02:28:42 AM »

Thank you Rich,

This is something I can use.
A peck drill on the lathe would be nice.

Regards,

Jos

30
General Mach Discussion / G74 for turning not recognized in Mach3.
« on: April 27, 2011, 05:07:35 AM »
Hello,

I am struggling with my postprocessor to do some turning with Mach3.
I have generated a g-code with Solidcam and there is the G74 code. Mach3 does not accept this.

I do not understand the G81 code and I think that this is intended for drilling on the mill, not for drilling while turning.
This is the part in my .gpp file for turning;

@turn_drill
        local string for for1 for2  for3
        for1 = '2/2.0(P)'
        for2 = '2/2.0(P*10)'
        for3 = '5.0(P*1000)'

    local numeric save_feed xc_new
    gcode = 74
    if drill_type eq drilling then
        r = 0
        q = abs(drill_lower_z + r)
    endif
    if drill_type eq peck then
        r = r
        q = (down_step)
    endif
    if drill_type <> tapping
        {nb 'G'gcode, ' R'r }
        {nb 'G'gcode, ' Z'drill_lower_z ' Q'q:for3}
        if drill_type eq peck then
               {' R0.'}
        endif
        if feed_unit eq css
            {' F'feed }
        else
            {' F'feed:'5.0(p)' }
        endif
    else
        gcode = 32
        save_feed =feed
        xc_new = 100-p_feed
        feed = feed*xc_new/100
        { nb 'G'gcode ' Z'drill_lower_z}
        if feed_unit eq css
            {' F'feed }
        else
            {' F'feed:'5.0(p)' }
        endif
        ;tbd.. check for a maximum of 10 mm mistake (BIG MISTAKE)
        ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        feed = save_feed
        {nb 'M5'}
        {nb 'G'gcode ' Z'drill_upper_z ' S'(spin*1.3):integer_def_f  ' M4'}
        if feed_unit eq css
            {' F'feed }
        else
            {' F'feed:'5.0(p)' }
        endif
    endif
endp

Someone has been working at this, see the comment.

Can G81 be used for turning?
Any ideas how to solve this?? Please??

Jos Raven
Holland

Pages: « 1 2 3 4 »