Biesse Rover 321 Post Processors + process

This forum is for requests and queries about machine tool support for Vectric Products
Post Reply
bigZ
Vectric Apprentice
Posts: 65
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Biesse Rover 321 Post Processors + process

Post by bigZ »

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 418 times
Biesse_Rover_rt480_ATC_HC1_Arcs_mm.pp
(5.02 KiB) Downloaded 344 times
Biesse_Rover_rt480_ATC_HC2_Arcs_mm.pp
(5.02 KiB) Downloaded 318 times

bigZ
Vectric Apprentice
Posts: 65
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Post by bigZ »

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

User avatar
Adrian
Vectric Archimage
Posts: 10244
Joined: Thu Nov 23, 2006 2:19 pm
Model of CNC Machine: ShopBot PRS Alpha 96x48
Location: Surrey, UK

Re: Biesse Rover 321 Post Processors + process

Post by Adrian »

Couldn't you use the tape splitting function of the Post Processors to break the file down into the 400 lines limit?

bigZ
Vectric Apprentice
Posts: 65
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Post by bigZ »

Tape Splitting is used but the minimum split is 600 lines. The Biesse Rover can only handle approx 400 lines.

User avatar
Adrian
Vectric Archimage
Posts: 10244
Joined: Thu Nov 23, 2006 2:19 pm
Model of CNC Machine: ShopBot PRS Alpha 96x48
Location: Surrey, UK

Re: Biesse Rover 321 Post Processors + process

Post by Adrian »

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.

bigZ
Vectric Apprentice
Posts: 65
Joined: Sun Apr 22, 2007 12:19 am
Location: Wirral, UK

Re: Biesse Rover 321 Post Processors + process

Post by bigZ »

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.

Post Reply