Machsupport Forum

Mach Discussion => General Mach Discussion => Topic started by: PROMiCA on March 24, 2009, 08:45:44 AM

Title: Need to print out my work offsets ..how can I do it??
Post by: PROMiCA on March 24, 2009, 08:45:44 AM

Hello All,

Hopefully just a quick one...

I have a couple of dozen work offsets saved in Mach3 (Quantum actually) and I need to get a printout of them as I need to use the data in something else I'm working on.

Is there an easy way to print out all of the current work offsets - if not then is there a way to extract the info from a config file somewhere (and if so which file??)


Thanks

Marc

Title: Re: Need to print out my work offsets ..how can I do it??
Post by: vmax549 on March 24, 2009, 03:22:03 PM

Marc when you say current work offsets do you mean fixure offsets such as g55, g56.etc. As it it now now there is no routine I know of BUT it can be done. I do have a routine to print out the tool table, just never needed the Fixture offsets. Let me know if it is the fixture offsets you need.

(;-) TP

Title: Re: Need to print out my work offsets ..how can I do it??
Post by: PROMiCA on March 24, 2009, 05:37:08 PM

Thanks for the reply..

Yes that would be them ...G54 through to G59P255 ... on my screen at least they come under the title Work Offsets. Actually I just checked the manual and the two terms are intermixed ... Fixture Offsets are stored in the Work Offsets table ... :D

It appears that it may be kept in the FIXTURES.DAT file but opening that with notepad is not readable.

Title: Re: Need to print out my work offsets ..how can I do it??
Post by: vmax549 on March 25, 2009, 04:08:59 PM

OK I had to drag it out sideways but here it is.

Copy the M8888 macro to your "c:/ MACH3 / Macro / Machmill  Directory"

Then from the MDI type in M8888  It will then print the Offset Paramaeters to the LOcal Printer

It will ONLY print the Parameters that have a value in them(;-)

YOU will have to match the Fixture # to the Parameter #  Look in the Manual  Figure "10.1"

IF you do not have a printer look in C:/Mach3/ FixOffsetInfo.TXT with MS  notebook.

CODE EXAMPLE

*********************************************************
'Macro Print Offsets
textFilePath = "C:\mach3\FixOffsetInfo.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(textFilePath)
Num=5221
Do Until num=10320
Num=Num+1
N = GetVar(num)
Dt= Date()
Tm= Time()
If N <>"0" Then
objTextFile.WriteLine("Parameter# "& num &"  * "& N  & Chr(13) & Chr(10))
Else
End If
Loop
objTextFile.WriteLine("**")
objTextFile.WriteLine("  Date: " &Dt &" Time: " &Tm)
objTextFile.Close
Dim sCOMMAND As String
 sCOMMAND="print c:\mach3\FixOffsetInfo.txt"
 Shell("c:\winnt2\system32\cmd.exe /c" & sCOMMAND)
End 

****************************************************** 

Title: Re: Need to print out my work offsets ..how can I do it??
Post by: PROMiCA on March 25, 2009, 09:15:14 PM

Thanks for that .. I will it a go!


Regards

Marc

Title: Re: Need to print out my work offsets ..how can I do it??
Post by: PROMiCA on March 25, 2009, 10:17:43 PM

OK ...that worked fine ...just had to modify a few lines to point to the correct directories.

I can now manipulate the data as per the information in the manual.


Thanks again!!

Marc