Hello Guest it is July 19, 2019, 02:31:27 AM

Author Topic: I have CNC'ed my cold saw  (Read 7213 times)

0 Members and 1 Guest are viewing this topic.

Re: I have CNC'ed my cold saw
« Reply #30 on: May 12, 2015, 02:25:30 PM »
NO , I got the HUMOR  ;D .   

Notta problem , (;-) TP

Great, happy to know that.

Jeff

Offline BR549

*
  •  6,874 6,874
    • View Profile
Re: I have CNC'ed my cold saw
« Reply #31 on: May 12, 2015, 11:14:52 PM »
DID you get the feeder loop working as you wanted?

(;-) TP
Re: I have CNC'ed my cold saw
« Reply #32 on: May 13, 2015, 02:31:06 AM »
Not yet, still working on it when I have time.

The macro I have modified work ok for now, it output the program I want but I limit the number of parts to no

 more than the feeder travel.

Tonight, I had 150 small mech tubing to cut but they were only 0.250 in length so I cut one lot of 90 and one lot of 60.

For that kind of job it`s great but I also have a lot of 3/8 stainless tubing at 12 3/16 in length so I will be limited to 2 strokes of the feeder, 3 is more than

the total feeder travel.

So for the material monitoring, I don't know where to begin.

Thanks for asking, Jeff

Offline BR549

*
  •  6,874 6,874
    • View Profile
Re: I have CNC'ed my cold saw
« Reply #33 on: May 13, 2015, 10:06:55 AM »
I wold start by adding several new DROs to the main run page.  

Part Length
Feeder length
Stock Length

Intermediant Lenth


The Part length ( Pl) is obvious

The Feeder Length(Fl) is the Length left inside the feeder loop

The stock Length(Sl) is the total available to cut length of the stock

The intermediant length (Il) is a holder for IF the part you need is longer than ONE feeder length
 And you would need to make 2 or more strokes to get the full part length.

Then create a test Macro ( verbal example)

001
If Pl < Fl then
unlock Vice
Move feeder = Pl
Lock vice
FL = FL -Pl
Sl = Sl - Pi
Il = 0.000
cut
END

002
If Pl  > Fl then
unlock feeder
move to full stroke(32)
lock feeder
Fl = 32
Goto 001

003
Il = 0
IF Pl > 32 then
004
unlock feeder
Move to full stroke
lock feeder
unlock vise
Feed to zero
lock vise
Il = Il + 32
Sl = Sl - Il
Unlock Feeder
Move full stroke(32)
Fl = 32
If Pl < Il then
Goto 001
Else Goto 004

NOT a perfect example as I am sure I missed something off the top of my head. You really need a screen set running to be able to SEE the interaction of the code VERSES what you want it to do.

At least that is what works well for testing for  me (;-) , YOUR mileage may vary.

IF you need help just holler.

(;-) TP

Offline BR549

*
  •  6,874 6,874
    • View Profile
Re: I have CNC'ed my cold saw
« Reply #34 on: May 13, 2015, 09:32:32 PM »
How about a video of it working (;-)

(;-) TP
Re: I have CNC'ed my cold saw
« Reply #35 on: May 14, 2015, 01:30:58 AM »
No problem for a video, will do it tomorrow .

I post the two main pages with all DRO's. As you said, I would still need to add some more.

This is also the macro I use, not finish because I made so much mods to it.


'CNC_SAW Post


Sub Main ()

SawKerf=GetUserDRO(1003)
If SawKerf=0 Then
Message("Saw Kerf can't = 0")
Exit Sub
End If

MaterialLength=GetUserDRO(1004)
If MaterialLength=0 Then
Message("Material Length can't = 0")
Exit Sub
End If

SawRPM=GetUserDRO(1005)
If SawRPM=0 Then
Message("Saw RPM can't = 0")
Exit Sub
End If

SawFeed = GetUserDRO(1006)
If SawFeed = 0 Then
Message("Feed can't = 0")
Exit Sub
End If

StartCutHeight=GetUserDRO(1010)
If StartCutHeight=0 Then
Message("Start Cutting height can't = 0")
Exit Sub
End If

EndCutHeight=GetUserDRO(1011)
If EndCutHeight=0 Then
Message("End cutting height can't = 0")
Exit Sub
End If

'************************************

LengthOfPart=GetUserDRO(1001)
If LengthOfPart=0 Then
Message("Length of Part can't = 0")
Exit Sub
End If

NumberOfParts=GetUserDRO(1002)
If NumberOfParts=0 Then
Message("Number of Parts can't = 0")
Exit Sub
End If

If MaterialLength<((SawKerf*NumberOfParts)+(LengthOfPart*NumberOfParts)) Then
Message("Material length is not long enough for the number of parts")
Exit Sub
End If

SetUserDRO(1009,0)
p=GetUserDRO(1009)

'***New File
OpenTeachFile "cnc_saw.tap"
Code "(cnc_saw.tap)"
Code "G20 G50 G64 G90 G94"
If GetUserLED(1006) Then
ActivateSignal(OUTPUT2)
End If
Code "G4 P0.2"
Code "M3 S" &  SawRPM

If p=0 Then
Code " M200   ( Close Feeder Clamp ) "
Code "G00 A "  &   StartCutHeight
Code " M203                     ( Open Saw Clamp ) "
Code "M214"
If GetUserLED(1001) then
Code "M8"
End If
Code "G00 Z " & (LengthOfPart+sawKerf)
Code " M211 "
Code " M213 "
Code " M202   ( Close Feeded Clamp ) "
Code "G01 A " & EndCutHeight & " F " & SawFeed 
SetUserDRO(1009,1)
End If

NewZ=LengthOfPart+SawKerf
p=GetUserDRO(1009)

If p>0 Then
 For i=0 To (NumberOfParts-1)
 NewZ=(NewZ+LengthOfPart+SawKerf)
' Code " M200  ( Close Feeder Clamp ) '
 Code "G00 A " & StartCutHeight
  Code " M203                    (  Open Saw Clamp ) "
 Code " M210  ( Counter Increment ) "
 Code "G00 Z " & (NewZ+SawKerf)
 Code " M202  ( Close Saw Clamp ) "
 Code "G01 A " & EndCutHeight & " F " & SawFeed
 'Code " M210  ( Counter Increment ) "
 SetUserDRO(1205,NewZ+SawKerf)
  Next i
 Code "G00 A " & StartCutHeight
'SetUserDRO(1009,0)
End If

Code "G00 A0 "
Code "M30 "
CloseTeachFile
Call LoadTeachFile()
'****Exit Wizard back to mach
Call LoadStandardLayout()

End Sub


Other macro are:

M200   Close Saw Clamp
M201   Open Saw Clamp
M202   Close Feeded Clamp
M203   Open Feeder Clamp
M210   Parts Counter Increment
M211   Reset a DRO
M212   reset a DRO
M213   Reset a DRO
M214   Reset a DRO

M211, 212,213,214 are for Reset MaterialCounter, PartsCounter and some others


Like I said, I'm not good at all for macro so I modify one small part and try it.

Thanks for the reply.

Jeff
Re: I have CNC'ed my cold saw
« Reply #36 on: May 15, 2015, 01:49:55 AM »

Offline BR549

*
  •  6,874 6,874
    • View Profile
Re: I have CNC'ed my cold saw
« Reply #37 on: May 15, 2015, 02:39:32 PM »
AH Nothing like Machine *********  ;D

Thanks, (;-) TP