Changing "X- " to X+"

[?Mark]

We have a bunch of old programs we run on a mori lathe which have an opposite x axis direction then our new mori. Is there an editor that could handle flipping the program from x- to x+ together with adjusting G2 and G3 codes.

 

Any suggestion will be appreciated.

 

Regards, Mark

[mayday]

well you could change all X+ to say W+

then X- to X+

then W+ to X-

[?Mark]

I was thinking about doing it this way also with g2 and g3 codes but we have hundreds of programs like this so i'm looking for a little better "fool-proof" solution.

 

Mark

 

[Roger Martin from CNC Software]

Mark,

 

I'm sure you could find a text editor with macro capability. But you could probably create a VB Script program (a more robust solution) in less time than it would take to figure out the macro programming for that editor.

 

Also don't forget about the 'I' on the G2/G3 blocks if you are using that format. You may need to flip the signs on them.

[crazy^millman]

Is there a parameter on the machine to change the x direction. I would look and have that change for old programs and if you want change it back for new or just leave it set-up the old way if you dont want to have to flip back and forth.

[Brendan P]

quote:

---

We have a bunch of old programs we run on a mori lathe which have an opposite x axis direction then our new mori. Is there an editor that could handle flipping the program from x- to x+ together with adjusting G2 and G3 codes.

---

We started out a long time ago with some old Mori lathes.

They too were X- (away from spindle).

We have purchased many new Mori's and we just have parameters and what not changed to X- so we don't run into this.

 

Many of times I have to take a rotab program from a vertical and swap everything over to run on a rotab horizontal.

I end up doing it in the editor much like mayday described.

[?Mark]

quote:

---

Is there a parameter on the machine to change the x direction.

---

No, it is hard wired.

 

quote:

---

I'm sure you could find a text editor with macro capability

---

We currently use cimco editor that came with mc.

Anyone aware if upgrade could handle this task?

 

 

Mark

[specv]

I just flipped one like that the other day, it went from a vertical to a horizontal. im not sure there is a fool proof way. i just did one axis at a time

ie: changed all x's to x- which would give you x-- on some values then changed all x-- to x. same with y,i,j,k. i know there is a website with a utility on it i will also look for that

[?Mark]

quote:

---

Also don't forget about the 'I'

---

Thanks Roger I remember this, thats why i'm looking for something that is fool-proof.

As for vb scripting i just wish i had time to learn it...

 

The solution to change X G2 G3 ... one at a time works good when done one program at a time, this way we can visualy check if all looks good, but doing hundreds gives me headache just thinking about it...

 

Mark

[cadcam]

The full version of Cimco Editor will give you othe option to mirror the cde say in "X" and take the postive and get Minus.

 

Predator editor will do the same

[Mick from CNC Software Inc.]

I put this together pretty quickly so it might not be perfect but it seemed to work ok with what I tested it on. Feel free to play with it.

 

The script will prompt for an NC file, when run the script will create a new file called switched.nc and it will be saved to your NC folder depending on what module you run this from. You might want to edit the script to prompt for a new file name or parse the selected file and append something to the name so it is easily recognized.

 

 

code:

---

Call Main

 

' ////////////////////

' Sub Declaration

' ////////////////////

Sub Main()

 

Dim strOriginal

Dim strSwitched

Dim strLineToRead, strCleanedLine

Dim FSO, fsoDirty, fsoClean

Dim intX, intXminus

 

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

' -- Prompt for a file

If AskForFileName("*.NC", mcFILE_ACCESS_READ, strOriginal) Then

 

' -- Make sure it really does exist

If FSO.FileExists(strOriginal) Then

 

' -- Open the File

Set fsoDirty = FSO.OpenTextFile(strOriginal)

 

' -- Build path to our output file

strSwitched = GetPathFromExtension("NC")

 

' -- You may want to expand on the name here....

strSwitched = AddBackSlash(strSwitched) & "switched.nc"

 

' -- Open our clean file

Set fsoClean = FSO.CreateTextFile(strSwitched)

 

With fsoDirty

 

Do While Not .AtEndOfStream

 

' -- Get a line from the file

strLineToRead = .ReadLine

 

If Len(Trim(strLineToRead)) > 0 Then

 

intX = InStr(1, strLineToRead, "x", vbTextCompare)

intXminus = InStr(1, strLineToRead, "x-", vbTextCompare)

 

' -- initialize

strCleanedLine = vbNullString

 

' -- Check for a minus first!!

If intXminus > 0 Then

strCleanedLine = Replace(strLineToRead, "X-", "X")

 

ElseIf intX > 0 Then

strCleanedLine = Replace(strLineToRead, "X", "X-")

 

Else

strCleanedLine = strLineToRead

End If

 

' -- Write to our file as is

fsoClean.WriteLine strCleanedLine

 

Else

' -- Write to our file as is

fsoClean.WriteLine strLineToRead

End If

 

 

Loop

 

.Close

 

fsoClean.Close

 

End With

 

Call EditFile(strSwitched)

'Call EditFile(strOriginal)

 

Else

ShowString "Could not open file for editing"

 

End If

 

End If

 

 

 

Set FSO = Nothing

Set fsoClean = Nothing

Set fsoDirty = Nothing

 

End Sub

 

 

 

' ////////////////////

' Function Declaration

' ////////////////////

 

Function AddBackSlash(sPath)

 

If Right(sPath, 1) <> "" Then sPath = sPath & ""

AddBackSlash = sPath

 

End Function

---

[?Mark]

Wow did you just do it Mick?

THAT IS quite amazing...I'll try it first thing in the morning.

 

I'll also look into a full version of cimco edit.

Thanks CadCam

 

 

Big thanks to everyone

 

Regards, Mark

[Mick from CNC Software Inc.]

Hey Mark,

 

Did the script help out at all? If you need to adjust your I's and J's or flip G2/G3 then you can easily edit the above script to incorporate that, let me know if you need any further assistance.

[Roger Martin from CNC Software]

Mark,

 

I enhanced Mick's script to handle G02<->G03 (and the G2<->G3 format) and 'I's within the arc blocks.

 

It's in FLIP.ZIP on the forum FTP in VB_Scripts folder.

[?Mark]

O'k now, I greatly appreciate your help but without soundng too stupid (wouldn't be a first time) what do I do with this file?

I understand its vb script and I know I can run it from within mc, but how do i do it?

 

 

Kind regards to guys from CNC Software

Mark

[Roger Martin from CNC Software]

Drop the FLIP.VBS into your MCAM91VB folder

Fire up MC

From Main Menu select -> Create, Next menu, Add-ins, Mcam_VB

Select the FLIP.VBS and click RUN...

 

To ease of use if your running a VBS a lot, you can assign it to a key (like F12). That's done in Screen, Configure, Toolbar/Key tab page.

[?Mark]

Big thank you for your help.

 

Regards, Mark

[?Mark]

Just to let you know, it works like a charm...

 

 

Mark

[Roger Martin from CNC Software]

*NOTE*

If you downloaded FLIP.ZIP prior to 5:40pm (Eastern Time) there is a bug in that version of FLIP.VBS

 

I’ve replaced the FLIP.ZIP on the forum FTP with the corrected version.

 

The problem was here is this section of code...

code:

---

If intIminus > 0 Then

strLine = Replace(strLine, "I-", "I")

ElseIf intX > 0 Then

strLine = Replace(strLine, "I", "I-")

End If

---

the line “ElseIf intX > 0 Then” should read “ElseIf intI > 0 Then”

[dnguyen1]

Roger,

My company just bought a KIA V25P this machine has oposite X and Y direction too,and I do not know VB at all ,would you please show me how to edit with Y and J with Vb?

 

Thanks in advance

 

dnguyen

[Roger Martin from CNC Software]

So I'm clear on this.

 

You only need to flip the signs on the 'Y' & 'J' values?

What about G02/G03?

Anything else?

[dnguyen1]

Thanks for quick reply.

I downloaded the Scrip "Flip.Zip" but it works for "X" axis only, So can you add the "y" on the VB and J for G02/G03 block,that would be nice

sorry I was not clear with first post.