Biesse Rover 321 Post Processors + process

This forum is for requests and queries about machine tool support for Vectric Products

Biesse Rover 321 Post Processors + process

Postby bigZ » Sat Sep 13, 2014 7:29 am

Attached are 3 post processors one without tool changer but allows use of 2nd head. The other 2 are for either head 1 or 2.

Please note that the vectric post processor does not split files to 400 lines(min is 600) required for the 4k limit. To get round this I have added 200 lines to the header that will be deleted by the excel macro attached.

To use the macro save generated G code as then normal then run the excel program(ensure developer is enabled beforehand). The excel macro will then ask to select all the split files and will batch process them, deleting the additional lines and saving back to original location.

To convert the code to a format required by the Biesse Rover you will need copy of CNI Floppy. If you are using floppies save using an old internal floppy disc drive as the new USB external version will not work.

http://www.emerge.com.br/index.php

I have converted all my Biesse with Floppy disc drive emulators. This allows me to send programs via a network and get away from floppies and the associated problems. I recommend EMUFDD for their exceptional customer service.

http://embeddedsw.net/EMUFDD_Custom_Ins ... iesse.html
Attachments
Biesse_Rover_rt480_Arcs_mm.pp
(4.98 KiB) Downloaded 411 times
Biesse_Rover_rt480_ATC_HC1_Arcs_mm.pp
(5.02 KiB) Downloaded 336 times
Biesse_Rover_rt480_ATC_HC2_Arcs_mm.pp
(5.02 KiB) Downloaded 312 times
bigZ
Vectric Apprentice
 
Posts: 66
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Postby bigZ » Sat Sep 13, 2014 8:46 am

Unfortunately I am unable to upload excel extension. Copy and past this into excel - developer - macros.

'Sub routine to open the first userform as soon as the workbook is open
Private Sub Workbook_Open()

'Make the application invisible
'Application.Visible = False

Dim FilesToOpen
Dim x As Integer
Dim y As Integer
Dim RowLast As Long
Dim wkbAll As Workbook
Dim wkbTemp As Workbook
Dim sDelimiter As String

Dim ResultText As String

On Error GoTo ErrHandler
Application.ScreenUpdating = False

sDelimiter = "|"

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Text Files (*.txt), *.txt", _
MultiSelect:=True, Title:="G Code Files to Open")

If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If

x = 1
' y = 1
' Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
' wkbTemp.Sheets(1).Copy
Set wkbAll = ActiveWorkbook
' wkbTemp.Close (False)

Workbooks.Add ' Open a new workbook
Set wkbAll = ActiveWorkbook

ResultText = ""

Application.DisplayAlerts = False

' If wkbAll.Worksheets(x).Range("A1") = "^" Then
' ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf
'
' wkbAll.Worksheets(x).Range(Range("A224"), Range("A224").End(xlDown)).TextToColumns _
' Destination:=Range("A1"), DataType:=xlDelimited, _
' TextQualifier:=xlDoubleQuote, _
' ConsecutiveDelimiter:=False, _
' Tab:=False, Semicolon:=False, _
' Comma:=False, Space:=False, _
' Other:=True, OtherChar:="|"
'
' wkbAll.SaveAs Filename:=FilesToOpen(x), _
' FileFormat:=xlText
' Else
' ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
' End If
'
' x = x + 1
' y = y + 1

While x <= UBound(FilesToOpen)
Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))

If wkbTemp.Worksheets(1).Range("A1") = "^" Then
ResultText = ResultText + "Processed : " + FilesToOpen(x) + vbCrLf

With wkbAll
wkbTemp.Sheets(1).Move After:=.Sheets(.Sheets.Count)

y = .Sheets.Count


RowLast = .Worksheets(y).Cells(Rows.Count, "A").End(xlUp).Row


.Worksheets(y).Range(Range("A226"), Range("A226").End(xlDown)).TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=sDelimiter

RowLast = RowLast - 224

.Worksheets(y).Rows(RowLast & ":" & RowLast + 225).ClearContents
End With

' y = y + 1

wkbAll.SaveAs Filename:=FilesToOpen(x), _
FileFormat:=xlText

Else
wkbTemp.Close (False)
ResultText = ResultText + "NO ^ FOUND : " + FilesToOpen(x) + vbCrLf
End If

x = x + 1
Wend

MsgBox ResultText

wkbAll.Close SaveChanges:=False

ExitHandler:
Application.ScreenUpdating = True
Set wkbAll = Nothing
Set wkbTemp = Nothing
Exit Sub

ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
bigZ
Vectric Apprentice
 
Posts: 66
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Postby Adrian » Sat Sep 13, 2014 9:58 am

Couldn't you use the tape splitting function of the Post Processors to break the file down into the 400 lines limit?
User avatar
Adrian
Vectric Archimage
 
Posts: 9965
Joined: Thu Nov 23, 2006 2:19 pm
Location: Surrey, UK
Model of CNC Machine: ShopBot PRS Alpha 96x48

Re: Biesse Rover 321 Post Processors + process

Postby bigZ » Sat Sep 13, 2014 10:27 pm

Tape Splitting is used but the minimum split is 600 lines. The Biesse Rover can only handle approx 400 lines.
bigZ
Vectric Apprentice
 
Posts: 66
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Postby Adrian » Sun Sep 14, 2014 9:43 am

Learn something new every day. Wonder why that is?

I take it this is a very old machine with a limit of 400 lines of code.
User avatar
Adrian
Vectric Archimage
 
Posts: 9965
Joined: Thu Nov 23, 2006 2:19 pm
Location: Surrey, UK
Model of CNC Machine: ShopBot PRS Alpha 96x48

Re: Biesse Rover 321 Post Processors + process

Postby bigZ » Sun Sep 14, 2014 1:23 pm

I did confirm with Vectric the minimum split.

Yeap machine is 400 line limit and are early 90's tech. I hate the thought of them being 'very old', as I am of very early 70's vintage. :mrgreen:

I am not expecting to do much in the way of 3d with it.
bigZ
Vectric Apprentice
 
Posts: 66
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK


Return to Post Processors

Who is online

Users browsing this forum: No registered users and 3 guests